home *** CD-ROM | disk | FTP | other *** search
/ Ultra Pack / UltraComputing Partner Applications.iso / SunLabs / tclTK / src / tk4.0p1.patch < prev    next >
Text File  |  1995-07-28  |  77KB  |  2,577 lines
  1. Prereq: "4.0"
  2. *** ../tk4.0/patchlevel.h    Fri Jun 30 11:18:49 1995
  3. --- patchlevel.h    Fri Jul 28 10:08:41 1995
  4. ***************
  5. *** 17,23 ****
  6.    * See the file "license.terms" for information on usage and redistribution
  7.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  8.    *
  9. !  * @(#) patchlevel.h 1.7 95/06/30 11:18:45
  10.    */
  11.   
  12. ! #define TK_PATCH_LEVEL "4.0"
  13. --- 17,23 ----
  14.    * See the file "license.terms" for information on usage and redistribution
  15.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  16.    *
  17. !  * @(#) patchlevel.h 1.8 95/07/18 16:23:42
  18.    */
  19.   
  20. ! #define TK_PATCH_LEVEL "4.0p1"
  21. *** ../tk4.0/./tkSend.c    Thu Apr 20 16:27:00 1995
  22. --- ./tkSend.c    Wed Jul 26 17:13:26 1995
  23. ***************
  24. *** 12,18 ****
  25.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  26.    */
  27.   
  28. ! static char sccsid[] = "@(#) tkSend.c 1.48 95/04/20 16:26:59";
  29.   
  30.   #include "tkPort.h"
  31.   #include "tkInt.h"
  32. --- 12,18 ----
  33.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  34.    */
  35.   
  36. ! static char sccsid[] = "@(#) tkSend.c 1.49 95/07/26 17:13:25";
  37.   
  38.   #include "tkPort.h"
  39.   #include "tkInt.h"
  40. ***************
  41. *** 1771,1777 ****
  42.       ckfree((char *) riPtr->name);
  43.       riPtr->interp = NULL;
  44.       UpdateCommWindow(riPtr->dispPtr);
  45. !     Tk_EventuallyFree((ClientData) riPtr, free);
  46.   }
  47.   
  48.   /*
  49. --- 1771,1777 ----
  50.       ckfree((char *) riPtr->name);
  51.       riPtr->interp = NULL;
  52.       UpdateCommWindow(riPtr->dispPtr);
  53. !     Tk_EventuallyFree((ClientData) riPtr, (Tk_FreeProc *) free);
  54.   }
  55.   
  56.   /*
  57. *** ../tk4.0/./tkUnix.c    Sat Jun 24 17:14:32 1995
  58. --- ./tkUnix.c    Fri Jun 30 14:59:41 1995
  59. ***************
  60. *** 11,17 ****
  61.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  62.    */
  63.   
  64. ! static char sccsid[] = "%Z% %M% %I% %E% %U%";
  65.   
  66.   #include <tkInt.h>
  67.   
  68. --- 11,17 ----
  69.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  70.    */
  71.   
  72. ! static char sccsid[] = "@(#) tkUnix.c 1.1 95/06/30 14:59:42";
  73.   
  74.   #include <tkInt.h>
  75.   
  76. *** ../tk4.0/./tkWm.c    Wed Jun 28 17:38:54 1995
  77. --- ./tkWm.c    Sat Jul 22 16:04:58 1995
  78. ***************
  79. *** 13,19 ****
  80.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  81.    */
  82.   
  83. ! static char sccsid[] = "@(#) tkWm.c 1.105 95/06/28 17:38:53";
  84.   
  85.   #include "tkPort.h"
  86.   #include "tkInt.h"
  87. --- 13,19 ----
  88.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  89.    */
  90.   
  91. ! static char sccsid[] = "@(#) tkWm.c 1.107 95/07/22 16:04:57";
  92.   
  93.   #include "tkPort.h"
  94.   #include "tkInt.h"
  95. ***************
  96. *** 3575,3589 ****
  97.        *     toplevels themselves aren't siblings).
  98.        * The only solution I can see is to switch to using the window
  99.        * itself instead of its frame, if there's no sibling, but use
  100. !      * the frames if there's a sibling.  This means that raising
  101.        * relative to a sibling won't work under olvwm.
  102.        */
  103.   
  104. -     if (!(mask & CWSibling)) {
  105. -     window = winPtr->window;
  106. -     }
  107.       serial = NextRequest(winPtr->display);
  108. !     XConfigureWindow(winPtr->display, window, mask, &changes);
  109.   
  110.       /*
  111.        * Wait for the reconfiguration to complete.  If we don't wait, then
  112. --- 3575,3587 ----
  113.        *     toplevels themselves aren't siblings).
  114.        * The only solution I can see is to switch to using the window
  115.        * itself instead of its frame, if there's no sibling, but use
  116. !      * the frame if there's a sibling.  This means that raising
  117.        * relative to a sibling won't work under olvwm.
  118.        */
  119.   
  120.       serial = NextRequest(winPtr->display);
  121. !     XConfigureWindow(winPtr->display,
  122. !         (mask & CWSibling) ? window : winPtr->window, mask, &changes);
  123.   
  124.       /*
  125.        * Wait for the reconfiguration to complete.  If we don't wait, then
  126. *** ../tk4.0/./tkButton.c    Fri Jun  9 08:20:07 1995
  127. --- ./tkButton.c    Sat Jul 22 16:05:26 1995
  128. ***************
  129. *** 13,19 ****
  130.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  131.    */
  132.   
  133. ! static char sccsid[] = "@(#) tkButton.c 1.119 95/06/09 08:19:59";
  134.   
  135.   #include "default.h"
  136.   #include "tkPort.h"
  137. --- 13,19 ----
  138.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  139.    */
  140.   
  141. ! static char sccsid[] = "@(#) tkButton.c 1.120 95/07/22 16:05:25";
  142.   
  143.   #include "default.h"
  144.   #include "tkPort.h"
  145. ***************
  146. *** 1690,1696 ****
  147.       if (flags & TCL_TRACE_UNSETS) {
  148.       butPtr->flags &= ~SELECTED;
  149.       if ((flags & TCL_TRACE_DESTROYED) && !(flags & TCL_INTERP_DESTROYED)) {
  150. !         Tcl_TraceVar2(interp, name1, name2,
  151.               TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
  152.               ButtonVarProc, clientData);
  153.       }
  154. --- 1690,1696 ----
  155.       if (flags & TCL_TRACE_UNSETS) {
  156.       butPtr->flags &= ~SELECTED;
  157.       if ((flags & TCL_TRACE_DESTROYED) && !(flags & TCL_INTERP_DESTROYED)) {
  158. !         Tcl_TraceVar(interp, butPtr->selVarName,
  159.               TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
  160.               ButtonVarProc, clientData);
  161.       }
  162. ***************
  163. *** 1702,1708 ****
  164.        * the button.
  165.        */
  166.   
  167. !     value = Tcl_GetVar2(interp, name1, name2, flags & TCL_GLOBAL_ONLY);
  168.       if (strcmp(value, butPtr->onValue) == 0) {
  169.       if (butPtr->flags & SELECTED) {
  170.           return (char *) NULL;
  171. --- 1702,1711 ----
  172.        * the button.
  173.        */
  174.   
  175. !     value = Tcl_GetVar(interp, butPtr->selVarName, TCL_GLOBAL_ONLY);
  176. !     if (value == NULL) {
  177. !     value = "";
  178. !     }
  179.       if (strcmp(value, butPtr->onValue) == 0) {
  180.       if (butPtr->flags & SELECTED) {
  181.           return (char *) NULL;
  182. *** ../tk4.0/./tkListbox.c    Fri Jun 23 08:46:15 1995
  183. --- ./tkListbox.c    Tue Jul 25 12:50:15 1995
  184. ***************
  185. *** 12,18 ****
  186.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  187.    */
  188.   
  189. ! static char sccsid[] = "@(#) tkListbox.c 1.96 95/06/23 08:46:14";
  190.   
  191.   #include "tkPort.h"
  192.   #include "default.h"
  193. --- 12,18 ----
  194.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  195.    */
  196.   
  197. ! static char sccsid[] = "@(#) tkListbox.c 1.97 95/07/25 12:50:13";
  198.   
  199.   #include "tkPort.h"
  200.   #include "default.h"
  201. ***************
  202. *** 491,497 ****
  203.           i++, elPtr = elPtr->nextPtr) {
  204.           /* Empty loop body. */
  205.       }
  206. !     if ((index >= listPtr->topIndex)
  207.               && (index < (listPtr->topIndex + listPtr->fullLines
  208.               + listPtr->partialLine))) {
  209.           x = listPtr->inset - listPtr->xOffset;
  210. --- 491,497 ----
  211.           i++, elPtr = elPtr->nextPtr) {
  212.           /* Empty loop body. */
  213.       }
  214. !     if ((index >= listPtr->topIndex) && (index < listPtr->numElements)
  215.               && (index < (listPtr->topIndex + listPtr->fullLines
  216.               + listPtr->partialLine))) {
  217.           x = listPtr->inset - listPtr->xOffset;
  218. *** ../tk4.0/./tkMenu.c    Sun Jun 25 16:11:07 1995
  219. --- ./tkMenu.c    Sat Jul 22 16:05:26 1995
  220. ***************
  221. *** 13,19 ****
  222.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  223.    */
  224.   
  225. ! static char sccsid[] = "@(#) tkMenu.c 1.92 95/06/25 16:11:06";
  226.   
  227.   #include "tkPort.h"
  228.   #include "default.h"
  229. --- 13,19 ----
  230.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  231.    */
  232.   
  233. ! static char sccsid[] = "@(#) tkMenu.c 1.93 95/07/22 16:05:23";
  234.   
  235.   #include "tkPort.h"
  236.   #include "default.h"
  237. ***************
  238. *** 2368,2373 ****
  239. --- 2368,2376 ----
  240.        */
  241.   
  242.       value = Tcl_GetVar(interp, mePtr->name, TCL_GLOBAL_ONLY);
  243. +     if (value == NULL) {
  244. +     value = "";
  245. +     }
  246.       if (strcmp(value, mePtr->onValue) == 0) {
  247.       if (mePtr->flags & ENTRY_SELECTED) {
  248.           return (char *) NULL;
  249. *** ../tk4.0/./tkCanvas.c    Tue Jun 20 14:26:15 1995
  250. --- ./tkCanvas.c    Thu Jul 27 13:23:50 1995
  251. ***************
  252. *** 12,18 ****
  253.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  254.    */
  255.   
  256. ! static char sccsid[] = "@(#) tkCanvas.c 1.98 95/06/20 14:26:12";
  257.   
  258.   #include "default.h"
  259.   #include "tkInt.h"
  260. --- 12,18 ----
  261.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  262.    */
  263.   
  264. ! static char sccsid[] = "@(#) tkCanvas.c 1.101 95/07/27 13:23:48";
  265.   
  266.   #include "default.h"
  267.   #include "tkInt.h"
  268. ***************
  269. *** 1726,1732 ****
  270.       borders:
  271.       if (canvasPtr->flags & REDRAW_BORDERS) {
  272.       canvasPtr->flags &= ~REDRAW_BORDERS;
  273. !     if (canvasPtr->relief != TK_RELIEF_FLAT) {
  274.           Tk_Draw3DRectangle(tkwin, Tk_WindowId(tkwin),
  275.               canvasPtr->bgBorder, canvasPtr->highlightWidth,
  276.               canvasPtr->highlightWidth,
  277. --- 1726,1732 ----
  278.       borders:
  279.       if (canvasPtr->flags & REDRAW_BORDERS) {
  280.       canvasPtr->flags &= ~REDRAW_BORDERS;
  281. !     if (canvasPtr->borderWidth > 0) {
  282.           Tk_Draw3DRectangle(tkwin, Tk_WindowId(tkwin),
  283.               canvasPtr->bgBorder, canvasPtr->highlightWidth,
  284.               canvasPtr->highlightWidth,
  285. ***************
  286. *** 1791,1800 ****
  287.       Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr, x, y,
  288.           x + eventPtr->xexpose.width,
  289.           y + eventPtr->xexpose.height);
  290. !     if ((x < canvasPtr->inset) || (y < canvasPtr->inset)
  291. !         || ((x + eventPtr->xexpose.width)
  292.               > (Tk_Width(canvasPtr->tkwin) - canvasPtr->inset))
  293. !         || ((y + eventPtr->xexpose.height)
  294.               > (Tk_Height(canvasPtr->tkwin) - canvasPtr->inset))) {
  295.           canvasPtr->flags |= REDRAW_BORDERS;
  296.       }
  297. --- 1791,1801 ----
  298.       Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr, x, y,
  299.           x + eventPtr->xexpose.width,
  300.           y + eventPtr->xexpose.height);
  301. !     if ((eventPtr->xexpose.x < canvasPtr->inset)
  302. !         || (eventPtr->xexpose.y < canvasPtr->inset)
  303. !         || ((eventPtr->xexpose.x + eventPtr->xexpose.width)
  304.               > (Tk_Width(canvasPtr->tkwin) - canvasPtr->inset))
  305. !         || ((eventPtr->xexpose.y + eventPtr->xexpose.height)
  306.               > (Tk_Height(canvasPtr->tkwin) - canvasPtr->inset))) {
  307.           canvasPtr->flags |= REDRAW_BORDERS;
  308.       }
  309. ***************
  310. *** 1818,1825 ****
  311.        */
  312.   
  313.       CanvasSetOrigin(canvasPtr, canvasPtr->xOrigin, canvasPtr->yOrigin);
  314. !     Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr, 0, 0,
  315. !         Tk_Width(canvasPtr->tkwin), Tk_Height(canvasPtr->tkwin));
  316.       canvasPtr->flags |= REDRAW_BORDERS;
  317.       } else if (eventPtr->type == FocusIn) {
  318.       if (eventPtr->xfocus.detail != NotifyInferior) {
  319. --- 1819,1828 ----
  320.        */
  321.   
  322.       CanvasSetOrigin(canvasPtr, canvasPtr->xOrigin, canvasPtr->yOrigin);
  323. !     Tk_CanvasEventuallyRedraw((Tk_Canvas) canvasPtr, canvasPtr->xOrigin,
  324. !         canvasPtr->yOrigin,
  325. !         canvasPtr->xOrigin + Tk_Width(canvasPtr->tkwin),
  326. !         canvasPtr->yOrigin + Tk_Height(canvasPtr->tkwin));
  327.       canvasPtr->flags |= REDRAW_BORDERS;
  328.       } else if (eventPtr->type == FocusIn) {
  329.       if (eventPtr->xfocus.detail != NotifyInferior) {
  330. ***************
  331. *** 3476,3482 ****
  332.   
  333.       range = object2 - object1;
  334.       if (range <= 0) {
  335. !     f1 = f2 = 1.0;
  336.       } else {
  337.       f1 = (screen1 - object1)/range;
  338.       if (f1 < 0) {
  339. --- 3479,3486 ----
  340.   
  341.       range = object2 - object1;
  342.       if (range <= 0) {
  343. !     f1 = 0;
  344. !     f2 = 1.0;
  345.       } else {
  346.       f1 = (screen1 - object1)/range;
  347.       if (f1 < 0) {
  348. *** ../tk4.0/./tkImgFmtPPM.c    Wed Jun 14 22:49:55 1995
  349. --- ./tkImgFmtPPM.c    Wed Jul 26 12:57:37 1995
  350. ***************
  351. *** 14,20 ****
  352.    *       Australian National University.
  353.    */
  354.   
  355. ! static char sccsid[] = "@(#) tkImgFmtPPM.c 1.7 95/06/14 22:49:55";
  356.   
  357.   #include "tkInt.h"
  358.   #include "tkPort.h"
  359. --- 14,20 ----
  360.    *       Australian National University.
  361.    */
  362.   
  363. ! static char sccsid[] = "@(#) tkImgFmtPPM.c 1.8 95/07/26 12:57:36";
  364.   
  365.   #include "tkInt.h"
  366.   #include "tkPort.h"
  367. ***************
  368. *** 63,69 ****
  369.    */
  370.   
  371.   static int        ReadPPMFileHeader _ANSI_ARGS_((FILE *f, int *widthPtr,
  372. !                 int *heightPtr));
  373.   
  374.   /*
  375.    *----------------------------------------------------------------------
  376. --- 63,69 ----
  377.    */
  378.   
  379.   static int        ReadPPMFileHeader _ANSI_ARGS_((FILE *f, int *widthPtr,
  380. !                 int *heightPtr, int *maxIntensityPtr));
  381.   
  382.   /*
  383.    *----------------------------------------------------------------------
  384. ***************
  385. *** 92,98 ****
  386.                    * returned here if the file is a valid
  387.                    * raw PPM file. */
  388.   {
  389. !     return ReadPPMFileHeader(f, widthPtr, heightPtr);
  390.   }
  391.   
  392.   /*
  393. --- 92,100 ----
  394.                    * returned here if the file is a valid
  395.                    * raw PPM file. */
  396.   {
  397. !     int dummy;
  398. ! 
  399. !     return ReadPPMFileHeader(f, widthPtr, heightPtr, &dummy);
  400.   }
  401.   
  402.   /*
  403. ***************
  404. *** 130,141 ****
  405.       int srcX, srcY;        /* Coordinates of top-left pixel to be used
  406.                    * in image being read. */
  407.   {
  408. !     int fileWidth, fileHeight;
  409.       int nLines, nBytes, h, type, count;
  410.       unsigned char *pixelPtr;
  411.       Tk_PhotoImageBlock block;
  412.   
  413. !     type = ReadPPMFileHeader(f, &fileWidth, &fileHeight);
  414.       if (type == 0) {
  415.       Tcl_AppendResult(interp, "couldn't read raw PPM header from file \"",
  416.           fileName, "\"", NULL);
  417. --- 132,143 ----
  418.       int srcX, srcY;        /* Coordinates of top-left pixel to be used
  419.                    * in image being read. */
  420.   {
  421. !     int fileWidth, fileHeight, maxIntensity;
  422.       int nLines, nBytes, h, type, count;
  423.       unsigned char *pixelPtr;
  424.       Tk_PhotoImageBlock block;
  425.   
  426. !     type = ReadPPMFileHeader(f, &fileWidth, &fileHeight, &maxIntensity);
  427.       if (type == 0) {
  428.       Tcl_AppendResult(interp, "couldn't read raw PPM header from file \"",
  429.           fileName, "\"", NULL);
  430. ***************
  431. *** 146,152 ****
  432. --- 148,163 ----
  433.           "\" has dimension(s) <= 0", (char *) NULL);
  434.       return TCL_ERROR;
  435.       }
  436. +     if ((maxIntensity <= 0) || (maxIntensity >= 256)) {
  437. +     char buffer[30];
  438.   
  439. +     sprintf(buffer, "%d", maxIntensity);
  440. +     Tcl_AppendResult(interp, "PPM image file \"", fileName,
  441. +         "\" has bad maximum intensity value ", buffer,
  442. +         (char *) NULL);
  443. +     return TCL_ERROR;
  444. +     }
  445. + 
  446.       if ((srcX + width) > fileWidth) {
  447.       width = fileWidth - srcX;
  448.       }
  449. ***************
  450. *** 204,209 ****
  451. --- 215,227 ----
  452.           ckfree((char *) pixelPtr);
  453.           return TCL_ERROR;
  454.       }
  455. +     if (maxIntensity != 255) {
  456. +         unsigned char *p;
  457. + 
  458. +         for (p = pixelPtr; count > 0; count--, p++) {
  459. +         *p = (((int) *p) * 255)/maxIntensity;
  460. +         }
  461. +     }
  462.       block.height = nLines;
  463.       Tk_PhotoPutBlock(imageHandle, &block, destX, destY, width, nLines);
  464.       destY += nLines;
  465. ***************
  466. *** 296,302 ****
  467.    * ReadPPMFileHeader --
  468.    *
  469.    *    This procedure reads the PPM header from the beginning of a
  470. !  *    PPM file and returns the dimensions of the image.
  471.    *
  472.    * Results:
  473.    *    The return value is PGM if file "f" appears to start with
  474. --- 314,320 ----
  475.    * ReadPPMFileHeader --
  476.    *
  477.    *    This procedure reads the PPM header from the beginning of a
  478. !  *    PPM file and returns information from the header.
  479.    *
  480.    * Results:
  481.    *    The return value is PGM if file "f" appears to start with
  482. ***************
  483. *** 303,309 ****
  484.    *    a valid PGM header, PPM if "f" appears to start with a valid
  485.    *      PPM header, and 0 otherwise.  If the header is valid,
  486.    *    then *widthPtr and *heightPtr are modified to hold the
  487. !  *    dimensions of the image.
  488.    *
  489.    * Side effects:
  490.    *    The access position in f advances.
  491. --- 321,328 ----
  492.    *    a valid PGM header, PPM if "f" appears to start with a valid
  493.    *      PPM header, and 0 otherwise.  If the header is valid,
  494.    *    then *widthPtr and *heightPtr are modified to hold the
  495. !  *    dimensions of the image and *maxIntensityPtr is modified to
  496. !  *    hold the value of a "fully on" intensity value.
  497.    *
  498.    * Side effects:
  499.    *    The access position in f advances.
  500. ***************
  501. *** 312,323 ****
  502.    */
  503.   
  504.   static int
  505. ! ReadPPMFileHeader(f, widthPtr, heightPtr)
  506.       FILE *f;            /* Image file to read the header from */
  507.       int *widthPtr, *heightPtr;    /* The dimensions of the image are
  508.                    * returned here. */
  509.   {
  510. -     int maxPixel;
  511.   #define BUFFER_SIZE 1000
  512.       char buffer[BUFFER_SIZE];
  513.       int i, numFields, firstInLine, c;
  514. --- 331,343 ----
  515.    */
  516.   
  517.   static int
  518. ! ReadPPMFileHeader(f, widthPtr, heightPtr, maxIntensityPtr)
  519.       FILE *f;            /* Image file to read the header from */
  520.       int *widthPtr, *heightPtr;    /* The dimensions of the image are
  521.                    * returned here. */
  522. +     int *maxIntensityPtr;    /* The maximum intensity value for
  523. +                  * the image is stored here. */
  524.   {
  525.   #define BUFFER_SIZE 1000
  526.       char buffer[BUFFER_SIZE];
  527.       int i, numFields, firstInLine, c;
  528. ***************
  529. *** 368,374 ****
  530.       buffer[i] = 0;
  531.   
  532.       /*
  533. !      * Parse the fields, which are: id, width, height, maxPixel.
  534.        */
  535.   
  536.       if (strncmp(buffer, "P6 ", 3) == 0) {
  537. --- 388,394 ----
  538.       buffer[i] = 0;
  539.   
  540.       /*
  541. !      * Parse the fields, which are: id, width, height, maxIntensity.
  542.        */
  543.   
  544.       if (strncmp(buffer, "P6 ", 3) == 0) {
  545. ***************
  546. *** 378,387 ****
  547.       } else {
  548.       return 0;
  549.       }
  550. !     if (sscanf(buffer+3, "%d %d %d", widthPtr, heightPtr, &maxPixel) != 3) {
  551. !     return 0;
  552. !     }
  553. !     if (maxPixel != 255) {
  554.       return 0;
  555.       }
  556.       return type;
  557. --- 398,405 ----
  558.       } else {
  559.       return 0;
  560.       }
  561. !     if (sscanf(buffer+3, "%d %d %d", widthPtr, heightPtr, maxIntensityPtr)
  562. !         != 3) {
  563.       return 0;
  564.       }
  565.       return type;
  566. *** ../tk4.0/./tkImgPhoto.c    Wed Jun 21 15:47:02 1995
  567. --- ./tkImgPhoto.c    Tue Jul 25 15:55:28 1995
  568. ***************
  569. *** 16,22 ****
  570.    *       Australian National University.
  571.    */
  572.   
  573. ! static char sccsid[] = "@(#) tkImgPhoto.c 1.25 95/06/21 15:46:57";
  574.   
  575.   #include "tkInt.h"
  576.   #include "tkPort.h"
  577. --- 16,22 ----
  578.    *       Australian National University.
  579.    */
  580.   
  581. ! static char sccsid[] = "@(#) tkImgPhoto.c 1.27 95/07/25 15:55:25";
  582.   
  583.   #include "tkInt.h"
  584.   #include "tkPort.h"
  585. ***************
  586. *** 2128,2134 ****
  587.       PhotoMaster *masterPtr;
  588.       schar *newError;
  589.       schar *errSrcPtr, *errDestPtr;
  590. !     int h, offset, pitch;
  591.       XRectangle validBox;
  592.       Pixmap newPixmap;
  593.   
  594. --- 2128,2134 ----
  595.       PhotoMaster *masterPtr;
  596.       schar *newError;
  597.       schar *errSrcPtr, *errDestPtr;
  598. !     int h, offset;
  599.       XRectangle validBox;
  600.       Pixmap newPixmap;
  601.   
  602. ***************
  603. *** 2161,2168 ****
  604.           || (instancePtr->height != masterPtr->height)
  605.           || (instancePtr->error == NULL)) {
  606.   
  607. !     pitch = masterPtr->width * sizeof(schar) * 3;
  608. !     newError = (schar *) ckalloc((unsigned) (masterPtr->height * pitch));
  609.   
  610.       /*
  611.        * Zero the new array so that we don't get bogus error values
  612. --- 2161,2168 ----
  613.           || (instancePtr->height != masterPtr->height)
  614.           || (instancePtr->error == NULL)) {
  615.   
  616. !     newError = (schar *) ckalloc((unsigned)
  617. !         (masterPtr->height * masterPtr->width * 3 * sizeof(schar)));
  618.   
  619.       /*
  620.        * Zero the new array so that we don't get bogus error values
  621. ***************
  622. *** 2173,2187 ****
  623.           && ((instancePtr->width == masterPtr->width)
  624.           || (validBox.width == masterPtr->width))) {
  625.           if (validBox.y > 0) {
  626. !         memset((VOID *) newError, 0, (size_t) (validBox.y * pitch));
  627.           }
  628.           h = validBox.y + validBox.height;
  629.           if (h < masterPtr->height) {
  630. !         memset((VOID *) (newError + h * pitch), 0,
  631. !             (size_t) ((masterPtr->height - h) * pitch));
  632.           }
  633.       } else {
  634. !         memset((VOID *) newError, 0, (size_t) (masterPtr->height * pitch));
  635.       }
  636.   
  637.       if (instancePtr->error != NULL) {
  638. --- 2173,2190 ----
  639.           && ((instancePtr->width == masterPtr->width)
  640.           || (validBox.width == masterPtr->width))) {
  641.           if (validBox.y > 0) {
  642. !         memset((VOID *) newError, 0, (size_t)
  643. !             (validBox.y * masterPtr->width * 3 * sizeof(schar)));
  644.           }
  645.           h = validBox.y + validBox.height;
  646.           if (h < masterPtr->height) {
  647. !         memset((VOID *) (newError + h * masterPtr->width * 3), 0,
  648. !             (size_t) ((masterPtr->height - h)
  649. !                 * masterPtr->width * 3 * sizeof(schar)));
  650.           }
  651.       } else {
  652. !         memset((VOID *) newError, 0, (size_t)
  653. !             (masterPtr->height * masterPtr->width * 3 * sizeof(schar)));
  654.       }
  655.   
  656.       if (instancePtr->error != NULL) {
  657. ***************
  658. *** 2193,2215 ****
  659.   
  660.           if (masterPtr->width == instancePtr->width) {
  661.   
  662. !         offset = validBox.y * pitch;
  663.           memcpy((VOID *) (newError + offset),
  664.               (VOID *) (instancePtr->error + offset),
  665. !             (size_t) (validBox.height * pitch));
  666.   
  667.           } else if (validBox.width > 0 && validBox.height > 0) {
  668.   
  669.           errDestPtr = newError
  670. !             + validBox.y * pitch + validBox.x * 3 * sizeof(schar);
  671.           errSrcPtr = instancePtr->error
  672. !             + (validBox.y * instancePtr->width + validBox.x)
  673. !             * 3 * sizeof(schar);
  674.           for (h = validBox.height; h > 0; --h) {
  675.               memcpy((VOID *) errDestPtr, (VOID *) errSrcPtr,
  676.                   validBox.width * 3 * sizeof(schar));
  677. !             errDestPtr += masterPtr->width * 3 * sizeof(schar);
  678. !             errSrcPtr += instancePtr->width * 3 * sizeof(schar);
  679.           }
  680.           }
  681.           ckfree((char *) instancePtr->error);
  682. --- 2196,2218 ----
  683.   
  684.           if (masterPtr->width == instancePtr->width) {
  685.   
  686. !         offset = validBox.y * masterPtr->width * 3;
  687.           memcpy((VOID *) (newError + offset),
  688.               (VOID *) (instancePtr->error + offset),
  689. !             (size_t) (validBox.height
  690. !             * masterPtr->width * 3 * sizeof(schar)));
  691.   
  692.           } else if (validBox.width > 0 && validBox.height > 0) {
  693.   
  694.           errDestPtr = newError
  695. !             + (validBox.y * masterPtr->width + validBox.x) * 3;
  696.           errSrcPtr = instancePtr->error
  697. !             + (validBox.y * instancePtr->width + validBox.x) * 3;
  698.           for (h = validBox.height; h > 0; --h) {
  699.               memcpy((VOID *) errDestPtr, (VOID *) errSrcPtr,
  700.                   validBox.width * 3 * sizeof(schar));
  701. !             errDestPtr += masterPtr->width * 3;
  702. !             errSrcPtr += instancePtr->width * 3;
  703.           }
  704.           }
  705.           ckfree((char *) instancePtr->error);
  706. ***************
  707. *** 2399,2404 ****
  708. --- 2402,2419 ----
  709.        */
  710.   
  711.       colorPtr = (ColorTable *) ckalloc(sizeof(ColorTable));
  712. + 
  713. +     /*
  714. +      * The following line of code should not normally be needed due
  715. +      * to the assignment in the following line.  However, it compensates
  716. +      * for bugs in some compilers (HP, for example) where
  717. +      * sizeof(ColorTable) is 24 but the assignment only copies 20 bytes,
  718. +      * leaving 4 bytes uninitialized;  these cause problems when using
  719. +      * the id for lookups in imgPhotoColorHash, and can result in
  720. +      * core dumps.
  721. +      */
  722. + 
  723. +     memset((VOID *) &colorPtr->id, 0, sizeof(ColorTableId));
  724.       colorPtr->id = id;
  725.       colorPtr->flags = 0;
  726.       colorPtr->refCount = 0;
  727. *** ../tk4.0/./tkText.c    Wed Jun 28 17:19:33 1995
  728. --- ./tkText.c    Thu Jul 20 09:42:41 1995
  729. ***************
  730. *** 14,20 ****
  731.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  732.    */
  733.   
  734. ! static char sccsid[] = "@(#) tkText.c 1.79 95/06/28 17:19:32";
  735.   
  736.   #include "default.h"
  737.   #include "tkPort.h"
  738. --- 14,20 ----
  739.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  740.    */
  741.   
  742. ! static char sccsid[] = "@(#) tkText.c 1.80 95/07/20 09:42:42";
  743.   
  744.   #include "default.h"
  745.   #include "tkPort.h"
  746. ***************
  747. *** 1632,1659 ****
  748.       firstChar = 0;
  749.       lastChar = INT_MAX;
  750.       if (lineNum == startingLine) {
  751.           /*
  752.            * The starting line is tricky: the first time we see it
  753.            * we check one part of the line, and the second pass through
  754. !          * we check the other part of the line.
  755.            */
  756.   
  757.           passes++;
  758. !         if (passes == 1) {
  759. !         if (backwards) {
  760. !             lastChar = startingChar;
  761. !         } else {
  762. !             firstChar = startingChar;
  763. !             if (firstChar >= Tcl_DStringLength(&line)) {
  764. !             goto nextLine;
  765. !             }
  766.           }
  767.           } else {
  768. !         if (backwards) {
  769. !             firstChar = startingChar;
  770. !         } else {
  771. !             lastChar = startingChar;
  772. !         }
  773.           }
  774.       }
  775.       do {
  776. --- 1632,1674 ----
  777.       firstChar = 0;
  778.       lastChar = INT_MAX;
  779.       if (lineNum == startingLine) {
  780. +         int indexInDString;
  781. + 
  782.           /*
  783.            * The starting line is tricky: the first time we see it
  784.            * we check one part of the line, and the second pass through
  785. !          * we check the other part of the line.  We have to be very
  786. !          * careful here because there could be embedded windows or
  787. !          * other things that are not in the extracted line.  Rescan
  788. !          * the original line to compute the index in it of the first
  789. !          * character.
  790.            */
  791.   
  792. +         indexInDString = startingChar;
  793. +         for (segPtr = linePtr->segPtr, leftToScan = startingChar;
  794. +             leftToScan > 0; segPtr = segPtr->nextPtr) {
  795. +         if (segPtr->typePtr != &tkTextCharType) {
  796. +             indexInDString -= segPtr->size;
  797. +         }
  798. +         leftToScan -= segPtr->size;
  799. +         }
  800. + 
  801.           passes++;
  802. !         if ((passes == 1) ^ backwards) {
  803. !         /*
  804. !          * Only use the last part of the line.
  805. !          */
  806. ! 
  807. !         firstChar = indexInDString;
  808. !         if (firstChar >= Tcl_DStringLength(&line)) {
  809. !             goto nextLine;
  810.           }
  811.           } else {
  812. !         /*
  813. !          * Use only the first part of the line.
  814. !          */
  815. ! 
  816. !         lastChar = indexInDString;
  817.           }
  818.       }
  819.       do {
  820. *** ../tk4.0/./tkTextBTree.c    Tue Jan  3 17:06:50 1995
  821. --- ./tkTextBTree.c    Fri Jul 28 10:07:06 1995
  822. ***************
  823. *** 12,18 ****
  824.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  825.    */
  826.   
  827. ! static char sccsid[] = "@(#) tkTextBTree.c 1.25 95/01/03 17:06:15";
  828.   
  829.   #include "tkInt.h"
  830.   #include "tkPort.h"
  831. --- 12,18 ----
  832.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  833.    */
  834.   
  835. ! static char sccsid[] = "@(#) tkTextBTree.c 1.26 95/07/28 10:07:03";
  836.   
  837.   #include "tkInt.h"
  838.   #include "tkPort.h"
  839. ***************
  840. *** 715,721 ****
  841.               prevNodePtr->nextPtr = curNodePtr->nextPtr;
  842.           }
  843.           parentPtr->numChildren--;
  844. -         DeleteSummaries(curNodePtr->summaryPtr);
  845.           ckfree((char *) curNodePtr);
  846.           curNodePtr = parentPtr;
  847.           }
  848. --- 715,720 ----
  849. *** ../tk4.0/./tkTextDisp.c    Wed Jun 28 15:06:53 1995
  850. --- ./tkTextDisp.c    Sat Jul 22 17:17:20 1995
  851. ***************
  852. *** 12,18 ****
  853.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  854.    */
  855.   
  856. ! static char sccsid[] = "@(#) tkTextDisp.c 1.91 95/06/28 15:06:50";
  857.   
  858.   #include "tkPort.h"
  859.   #include "tkInt.h"
  860. --- 12,18 ----
  861.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  862.    */
  863.   
  864. ! static char sccsid[] = "@(#) tkTextDisp.c 1.92 95/07/22 17:17:18";
  865.   
  866.   #include "tkPort.h"
  867.   #include "tkInt.h"
  868. ***************
  869. *** 2434,2439 ****
  870. --- 2434,2460 ----
  871.       TkTextIndex rounded;
  872.   
  873.       /*
  874. +      * Schedule both a redisplay and a recomputation of display information.
  875. +      * It's done here rather than the end of the procedure for two reasons:
  876. +      *
  877. +      * 1. If there are no display lines to update we'll want to return
  878. +      *    immediately, well before the end of the procedure.
  879. +      * 2. It's important to arrange for the redisplay BEFORE calling
  880. +      *    FreeDLines.  The reason for this is subtle and has to do with
  881. +      *    embedded windows.  The chunk delete procedure for an embedded
  882. +      *    window will schedule an idle handler to unmap the window.
  883. +      *    However, we want the idle handler for redisplay to be called
  884. +      *    first, so that it can put the embedded window back on the screen
  885. +      *    again (if appropriate).  This will prevent the window from ever
  886. +      *    being unmapped, and thereby avoid flashing.
  887. +      */
  888. + 
  889. +     if (!(dInfoPtr->flags & REDRAW_PENDING)) {
  890. +     Tk_DoWhenIdle(DisplayText, (ClientData) textPtr);
  891. +     }
  892. +     dInfoPtr->flags |= REDRAW_PENDING|DINFO_OUT_OF_DATE|REPICK_NEEDED;
  893. + 
  894. +     /*
  895.        * Find the DLines corresponding to index1Ptr and index2Ptr.  There
  896.        * is one tricky thing here, which is that we have to relayout in
  897.        * units of whole text lines:  round index1Ptr back to the beginning
  898. ***************
  899. *** 2454,2475 ****
  900.           && (lastPtr->index.linePtr == index2Ptr->linePtr)) {
  901.       lastPtr = lastPtr->nextPtr;
  902.       }
  903. - 
  904. -     /*
  905. -      * Schedule both a redisplay and a recomputation of display information.
  906. -      * It's important to do this BEFORE calling FreeDLines.  The reason for
  907. -      * this is subtle and has to do with embedded windows.  The chunk delete
  908. -      * procedure for an embedded window will schedule an idle handler to
  909. -      * unmap the window.  However, we want the idle handler for redisplay
  910. -      * to be called first, so that it can put the embedded window back on
  911. -      * the screen again (if appropriate).  This will prevent the window from
  912. -      * ever being unmapped, and thereby avoid flashing.
  913. -      */
  914. - 
  915. -     if (!(dInfoPtr->flags & REDRAW_PENDING)) {
  916. -     Tk_DoWhenIdle(DisplayText, (ClientData) textPtr);
  917. -     }
  918. -     dInfoPtr->flags |= REDRAW_PENDING|DINFO_OUT_OF_DATE|REPICK_NEEDED;
  919.   
  920.       /*
  921.        * Delete all the DLines from firstPtr up to but not including lastPtr.
  922. --- 2475,2480 ----
  923. *** ../tk4.0/./tkText.h    Mon Apr 17 14:51:52 1995
  924. --- ./tkText.h    Sat Jul 22 16:05:45 1995
  925. ***************
  926. *** 10,16 ****
  927.    * See the file "license.terms" for information on usage and redistribution
  928.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  929.    *
  930. !  * @(#) tkText.h 1.35 95/04/17 14:51:44
  931.    */
  932.   
  933.   #ifndef _TKTEXT
  934. --- 10,16 ----
  935.    * See the file "license.terms" for information on usage and redistribution
  936.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  937.    *
  938. !  * @(#) tkText.h 1.36 95/07/22 16:05:44
  939.    */
  940.   
  941.   #ifndef _TKTEXT
  942. ***************
  943. *** 634,642 ****
  944.       Tk_SegLineChangeProc *lineChangeProc;
  945.                       /* Invoked when a segment is about
  946.                        * to be moved from its current line
  947. !                      * to some other line (cleanupProc
  948. !                      * will be called later with the
  949. !                      * new line). */
  950.       Tk_SegLayoutProc *layoutProc;    /* Returns size information when
  951.                        * figuring out what to display in
  952.                        * window. */
  953. --- 634,644 ----
  954.       Tk_SegLineChangeProc *lineChangeProc;
  955.                       /* Invoked when a segment is about
  956.                        * to be moved from its current line
  957. !                      * to an earlier line because of
  958. !                      * a deletion.  The linePtr is that
  959. !                      * for the segment's old line.
  960. !                      * CleanupProc will be invoked after
  961. !                      * the deletion is finished. */
  962.       Tk_SegLayoutProc *layoutProc;    /* Returns size information when
  963.                        * figuring out what to display in
  964.                        * window. */
  965. *** ../tk4.0/./changes    Fri Jun 30 11:18:50 1995
  966. --- ./changes    Fri Jul 28 10:20:44 1995
  967. ***************
  968. *** 2,8 ****
  969.   released on March 13, 1991.  Changes that aren't backward compatible
  970.   are marked specially.
  971.   
  972. ! sccsid = @(#) changes 1.21 95/06/30 11:18:48
  973.   
  974.   3/16/91 (bug fix) Modified tkWindow.c to remove Tk's Tcl commands from
  975.   the interpreter when the main window is deleted (otherwise there will
  976. --- 2,8 ----
  977.   released on March 13, 1991.  Changes that aren't backward compatible
  978.   are marked specially.
  979.   
  980. ! sccsid = %Z% %M% %I% %E% %U%
  981.   
  982.   3/16/91 (bug fix) Modified tkWindow.c to remove Tk's Tcl commands from
  983.   the interpreter when the main window is deleted (otherwise there will
  984. ***************
  985. *** 2404,2406 ****
  986. --- 2404,2455 ----
  987.   slider.
  988.   
  989.   -------------------- Release 4.0, 7/1/95 -------------------------
  990. + 
  991. + 7/18/95 (bug fix) Changed "exec wish" lines in demo scripts to
  992. + "exec wish4.0" to avoid version conflicts.
  993. + 
  994. + 7/19/95 (bug fix) Fixed bug where 2-second delays were ocurring during
  995. + "raise" and "lower" commands for toplevel windows under some window
  996. + managers (such as fvwm).
  997. + 
  998. + 7/20/95 (bug fix) Text searches were misbehaving when there were embedded
  999. + windows on the starting line of the search.  The most common symptom is
  1000. + that Tk would fail to find a match at the starting position for the
  1001. + search.
  1002. + 
  1003. + 7/20/95 (bug fix) Fixed a couple of bugs in canvases that caused them
  1004. + not to refresh properly in some cases (e.g. old borders were not properly
  1005. + erased or redrawn after some resizes).
  1006. + 
  1007. + 7/22/95 (bug fix) Fixed core dump that could occur in menus if a checkbutton
  1008. + entry's -variable option referred to an array (or couldn't be read
  1009. + by the menu C code for some other reason).
  1010. + 
  1011. + 7/22/95 (bug fix) Text widgets didn't update their scrollbars when
  1012. + changes were made to information that was off-screen.
  1013. + 
  1014. + 7/25/95 (bug fix) Fixed core-dump in tkListbox.c that used to happen
  1015. + in the command ".l bbox end" if the listbox was empty.
  1016. + 
  1017. + 7/25/95 (bug fix) Page-up and page-down bindings for listboxes didn't
  1018. + move active element to remain on the screen.
  1019. + 
  1020. + 7/25/95 (bug fix) Fixed bug in tkImgPhoto.c that caused core dumps
  1021. + (during Tk self-tests and other image uses) on AIX and other machines
  1022. + where "schar" in tkImgPhoto.c was being defined as "short" instead of
  1023. + "char".
  1024. + 
  1025. + 7/26/95 (bug fix) The PPM image reader couldn't handle maximum intensity
  1026. + values other than 255.
  1027. + 
  1028. + 7/26/95 (bug fix) Canvases didn't redraw their borders when the relief
  1029. + changed from raised to flat.
  1030. + 
  1031. + 7/27/95 (bug fix) Canvases didn't set the scrolling values correctly
  1032. + when no scroll region was specified.
  1033. + 
  1034. + 7/28/95 (bug fix) Modified menu and tk_dialog scripts to restore any
  1035. + old grab that might have been in effect before a menu or dialog was
  1036. + posted.
  1037. + 
  1038. + ----------------- Released patch 4.0p1, 7/29/95 ----------------------
  1039. *** ../tk4.0/./configure    Thu Jun 29 15:19:01 1995
  1040. --- ./configure    Tue Jul 25 17:30:46 1995
  1041. ***************
  1042. *** 1,7 ****
  1043.   #! /bin/sh
  1044.   
  1045.   # Guess values for system-dependent variables and create Makefiles.
  1046. ! # Generated automatically using autoconf version 2.2 
  1047.   # Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc.
  1048.   #
  1049.   # This configure script is free software; the Free Software Foundation
  1050. --- 1,7 ----
  1051.   #! /bin/sh
  1052.   
  1053.   # Guess values for system-dependent variables and create Makefiles.
  1054. ! # Generated automatically using autoconf version 2.4 
  1055.   # Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc.
  1056.   #
  1057.   # This configure script is free software; the Free Software Foundation
  1058. ***************
  1059. *** 218,224 ****
  1060.       verbose=yes ;;
  1061.   
  1062.     -version | --version | --versio | --versi | --vers)
  1063. !     echo "configure generated by autoconf version 2.2"
  1064.       exit 0 ;;
  1065.   
  1066.     -with-* | --with-*)
  1067. --- 218,224 ----
  1068.       verbose=yes ;;
  1069.   
  1070.     -version | --version | --versio | --versi | --vers)
  1071. !     echo "configure generated by autoconf version 2.4"
  1072.       exit 0 ;;
  1073.   
  1074.     -with-* | --with-*)
  1075. ***************
  1076. *** 384,391 ****
  1077.   ac_ext=c
  1078.   # CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options.
  1079.   ac_cpp='$CPP $CPPFLAGS'
  1080. ! ac_compile='${CC-cc} conftest.$ac_ext $CFLAGS $CPPFLAGS -c 1>&5 2>&5'
  1081. ! ac_link='${CC-cc} conftest.$ac_ext $CFLAGS $CPPFLAGS $LDFLAGS -o conftest $LIBS 1>&5 2>&5'
  1082.   
  1083.   if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then
  1084.     # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu.
  1085. --- 384,391 ----
  1086.   ac_ext=c
  1087.   # CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options.
  1088.   ac_cpp='$CPP $CPPFLAGS'
  1089. ! ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5 2>&5'
  1090. ! ac_link='${CC-cc} -o conftest $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5 2>&5'
  1091.   
  1092.   if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then
  1093.     # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu.
  1094. ***************
  1095. *** 589,596 ****
  1096.   rm -f conftest*
  1097.     ac_cv_prog_CPP="$CPP"
  1098.   fi
  1099.   fi
  1100. - CPP="$ac_cv_prog_CPP"
  1101.   echo "$ac_t""$CPP" 1>&6
  1102.   
  1103.   for ac_hdr in unistd.h limits.h
  1104. --- 589,598 ----
  1105.   rm -f conftest*
  1106.     ac_cv_prog_CPP="$CPP"
  1107.   fi
  1108. +   CPP="$ac_cv_prog_CPP"
  1109. + else
  1110. +   ac_cv_prog_CPP="$CPP"
  1111.   fi
  1112.   echo "$ac_t""$CPP" 1>&6
  1113.   
  1114.   for ac_hdr in unistd.h limits.h
  1115. ***************
  1116. *** 601,607 ****
  1117.     echo $ac_n "(cached) $ac_c" 1>&6
  1118.   else
  1119.     cat > conftest.$ac_ext <<EOF
  1120. ! #line 605 "configure"
  1121.   #include "confdefs.h"
  1122.   #include <$ac_hdr>
  1123.   EOF
  1124. --- 603,609 ----
  1125.     echo $ac_n "(cached) $ac_c" 1>&6
  1126.   else
  1127.     cat > conftest.$ac_ext <<EOF
  1128. ! #line 607 "configure"
  1129.   #include "confdefs.h"
  1130.   #include <$ac_hdr>
  1131.   EOF
  1132. ***************
  1133. *** 619,625 ****
  1134.   fi
  1135.   if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
  1136.     echo "$ac_t""yes" 1>&6
  1137. !     ac_tr_hdr=HAVE_`echo $ac_hdr | tr '[a-z]./\055' '[A-Z]___'`
  1138.     cat >> confdefs.h <<EOF
  1139.   #define $ac_tr_hdr 1
  1140.   EOF
  1141. --- 621,627 ----
  1142.   fi
  1143.   if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
  1144.     echo "$ac_t""yes" 1>&6
  1145. !     ac_tr_hdr=HAVE_`echo $ac_hdr | tr 'abcdefghijklmnopqrstuvwxyz./\055' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ___'`
  1146.     cat >> confdefs.h <<EOF
  1147.   #define $ac_tr_hdr 1
  1148.   EOF
  1149. ***************
  1150. *** 642,648 ****
  1151.   
  1152.   echo $ac_n "checking fd_set and sys/select""... $ac_c" 1>&6
  1153.   cat > conftest.$ac_ext <<EOF
  1154. ! #line 646 "configure"
  1155.   #include "confdefs.h"
  1156.   #include <sys/types.h>
  1157.   int main() { return 0; }
  1158. --- 644,650 ----
  1159.   
  1160.   echo $ac_n "checking fd_set and sys/select""... $ac_c" 1>&6
  1161.   cat > conftest.$ac_ext <<EOF
  1162. ! #line 648 "configure"
  1163.   #include "confdefs.h"
  1164.   #include <sys/types.h>
  1165.   int main() { return 0; }
  1166. ***************
  1167. *** 661,667 ****
  1168.   
  1169.   if test $tk_ok = no; then
  1170.       cat > conftest.$ac_ext <<EOF
  1171. ! #line 665 "configure"
  1172.   #include "confdefs.h"
  1173.   #include <sys/select.h>
  1174.   EOF
  1175. --- 663,669 ----
  1176.   
  1177.   if test $tk_ok = no; then
  1178.       cat > conftest.$ac_ext <<EOF
  1179. ! #line 667 "configure"
  1180.   #include "confdefs.h"
  1181.   #include <sys/select.h>
  1182.   EOF
  1183. ***************
  1184. *** 694,700 ****
  1185.   
  1186.   echo $ac_n "checking stdlib.h""... $ac_c" 1>&6
  1187.   cat > conftest.$ac_ext <<EOF
  1188. ! #line 698 "configure"
  1189.   #include "confdefs.h"
  1190.   #include <stdlib.h>
  1191.   EOF
  1192. --- 696,702 ----
  1193.   
  1194.   echo $ac_n "checking stdlib.h""... $ac_c" 1>&6
  1195.   cat > conftest.$ac_ext <<EOF
  1196. ! #line 700 "configure"
  1197.   #include "confdefs.h"
  1198.   #include <stdlib.h>
  1199.   EOF
  1200. ***************
  1201. *** 709,715 ****
  1202.   rm -f conftest*
  1203.   
  1204.   cat > conftest.$ac_ext <<EOF
  1205. ! #line 713 "configure"
  1206.   #include "confdefs.h"
  1207.   #include <stdlib.h>
  1208.   EOF
  1209. --- 711,717 ----
  1210.   rm -f conftest*
  1211.   
  1212.   cat > conftest.$ac_ext <<EOF
  1213. ! #line 715 "configure"
  1214.   #include "confdefs.h"
  1215.   #include <stdlib.h>
  1216.   EOF
  1217. ***************
  1218. *** 723,729 ****
  1219.   rm -f conftest*
  1220.   
  1221.   cat > conftest.$ac_ext <<EOF
  1222. ! #line 727 "configure"
  1223.   #include "confdefs.h"
  1224.   #include <stdlib.h>
  1225.   EOF
  1226. --- 725,731 ----
  1227.   rm -f conftest*
  1228.   
  1229.   cat > conftest.$ac_ext <<EOF
  1230. ! #line 729 "configure"
  1231.   #include "confdefs.h"
  1232.   #include <stdlib.h>
  1233.   EOF
  1234. ***************
  1235. *** 758,764 ****
  1236.     ac_cv_c_cross=yes
  1237.   else
  1238.   cat > conftest.$ac_ext <<EOF
  1239. ! #line 762 "configure"
  1240.   #include "confdefs.h"
  1241.   main(){return(0);}
  1242.   EOF
  1243. --- 760,766 ----
  1244.     ac_cv_c_cross=yes
  1245.   else
  1246.   cat > conftest.$ac_ext <<EOF
  1247. ! #line 764 "configure"
  1248.   #include "confdefs.h"
  1249.   main(){return(0);}
  1250.   EOF
  1251. ***************
  1252. *** 779,785 ****
  1253.     echo $ac_n "(cached) $ac_c" 1>&6
  1254.   else
  1255.     cat > conftest.$ac_ext <<EOF
  1256. ! #line 783 "configure"
  1257.   #include "confdefs.h"
  1258.   #include <stdlib.h>
  1259.   #include <stdarg.h>
  1260. --- 781,787 ----
  1261.     echo $ac_n "(cached) $ac_c" 1>&6
  1262.   else
  1263.     cat > conftest.$ac_ext <<EOF
  1264. ! #line 785 "configure"
  1265.   #include "confdefs.h"
  1266.   #include <stdlib.h>
  1267.   #include <stdarg.h>
  1268. ***************
  1269. *** 801,807 ****
  1270.   if test $ac_cv_header_stdc = yes; then
  1271.     # SunOS 4.x string.h does not declare mem*, contrary to ANSI.
  1272.   cat > conftest.$ac_ext <<EOF
  1273. ! #line 805 "configure"
  1274.   #include "confdefs.h"
  1275.   #include <string.h>
  1276.   EOF
  1277. --- 803,809 ----
  1278.   if test $ac_cv_header_stdc = yes; then
  1279.     # SunOS 4.x string.h does not declare mem*, contrary to ANSI.
  1280.   cat > conftest.$ac_ext <<EOF
  1281. ! #line 807 "configure"
  1282.   #include "confdefs.h"
  1283.   #include <string.h>
  1284.   EOF
  1285. ***************
  1286. *** 819,825 ****
  1287.   if test $ac_cv_header_stdc = yes; then
  1288.     # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI.
  1289.   cat > conftest.$ac_ext <<EOF
  1290. ! #line 823 "configure"
  1291.   #include "confdefs.h"
  1292.   #include <stdlib.h>
  1293.   EOF
  1294. --- 821,827 ----
  1295.   if test $ac_cv_header_stdc = yes; then
  1296.     # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI.
  1297.   cat > conftest.$ac_ext <<EOF
  1298. ! #line 825 "configure"
  1299.   #include "confdefs.h"
  1300.   #include <stdlib.h>
  1301.   EOF
  1302. ***************
  1303. *** 840,846 ****
  1304.     ac_cv_header_stdc=no
  1305.   else
  1306.   cat > conftest.$ac_ext <<EOF
  1307. ! #line 844 "configure"
  1308.   #include "confdefs.h"
  1309.   #include <ctype.h>
  1310.   #define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
  1311. --- 842,848 ----
  1312.     ac_cv_header_stdc=no
  1313.   else
  1314.   cat > conftest.$ac_ext <<EOF
  1315. ! #line 846 "configure"
  1316.   #include "confdefs.h"
  1317.   #include <ctype.h>
  1318.   #define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
  1319. ***************
  1320. *** 874,880 ****
  1321.     echo $ac_n "(cached) $ac_c" 1>&6
  1322.   else
  1323.     cat > conftest.$ac_ext <<EOF
  1324. ! #line 878 "configure"
  1325.   #include "confdefs.h"
  1326.   #include <sys/types.h>
  1327.   #if STDC_HEADERS
  1328. --- 876,882 ----
  1329.     echo $ac_n "(cached) $ac_c" 1>&6
  1330.   else
  1331.     cat > conftest.$ac_ext <<EOF
  1332. ! #line 880 "configure"
  1333.   #include "confdefs.h"
  1334.   #include <sys/types.h>
  1335.   #if STDC_HEADERS
  1336. ***************
  1337. *** 905,911 ****
  1338.     echo $ac_n "(cached) $ac_c" 1>&6
  1339.   else
  1340.     cat > conftest.$ac_ext <<EOF
  1341. ! #line 909 "configure"
  1342.   #include "confdefs.h"
  1343.   #include <sys/types.h>
  1344.   #if STDC_HEADERS
  1345. --- 907,913 ----
  1346.     echo $ac_n "(cached) $ac_c" 1>&6
  1347.   else
  1348.     cat > conftest.$ac_ext <<EOF
  1349. ! #line 911 "configure"
  1350.   #include "confdefs.h"
  1351.   #include <sys/types.h>
  1352.   #if STDC_HEADERS
  1353. ***************
  1354. *** 936,942 ****
  1355.     echo $ac_n "(cached) $ac_c" 1>&6
  1356.   else
  1357.     cat > conftest.$ac_ext <<EOF
  1358. ! #line 940 "configure"
  1359.   #include "confdefs.h"
  1360.   #include <sys/types.h>
  1361.   #if STDC_HEADERS
  1362. --- 938,944 ----
  1363.     echo $ac_n "(cached) $ac_c" 1>&6
  1364.   else
  1365.     cat > conftest.$ac_ext <<EOF
  1366. ! #line 942 "configure"
  1367.   #include "confdefs.h"
  1368.   #include <sys/types.h>
  1369.   #if STDC_HEADERS
  1370. ***************
  1371. *** 967,973 ****
  1372.     echo $ac_n "(cached) $ac_c" 1>&6
  1373.   else
  1374.     cat > conftest.$ac_ext <<EOF
  1375. ! #line 971 "configure"
  1376.   #include "confdefs.h"
  1377.   #include <sys/types.h>
  1378.   EOF
  1379. --- 969,975 ----
  1380.     echo $ac_n "(cached) $ac_c" 1>&6
  1381.   else
  1382.     cat > conftest.$ac_ext <<EOF
  1383. ! #line 973 "configure"
  1384.   #include "confdefs.h"
  1385.   #include <sys/types.h>
  1386.   EOF
  1387. ***************
  1388. *** 1040,1049 ****
  1389.       # GNU make sometimes prints "make[1]: Entering...", which would confuse us.
  1390.       eval `make acfindx 2>/dev/null | grep -v make`
  1391.       # Open Windows xmkmf reportedly sets LIBDIR instead of USRLIBDIR.
  1392. !     if test ! -f $ac_im_usrlibdir/libX11.a && test -f $ac_im_libdir/libX11.a
  1393. !     then
  1394. !       ac_im_usrlibdir=$ac_im_libdir
  1395. !     fi
  1396.       # Screen out bogus values from the imake configuration.
  1397.       case "$ac_im_incroot" in
  1398.       /usr/include) ;;
  1399. --- 1042,1053 ----
  1400.       # GNU make sometimes prints "make[1]: Entering...", which would confuse us.
  1401.       eval `make acfindx 2>/dev/null | grep -v make`
  1402.       # Open Windows xmkmf reportedly sets LIBDIR instead of USRLIBDIR.
  1403. !     for ac_extension in a so sl; do
  1404. !       if test ! -f $ac_im_usrlibdir/libX11.$ac_extension &&
  1405. !         test -f $ac_im_libdir/libX11.$ac_extension; then
  1406. !         ac_im_usrlibdir=$ac_im_libdir; break
  1407. !       fi
  1408. !     done
  1409.       # Screen out bogus values from the imake configuration.
  1410.       case "$ac_im_incroot" in
  1411.       /usr/include) ;;
  1412. ***************
  1413. *** 1063,1069 ****
  1414.   test -z "$x_direct_test_function" && x_direct_test_function=XtMalloc
  1415.   test -z "$x_direct_test_include" && x_direct_test_include=X11/Intrinsic.h
  1416.   cat > conftest.$ac_ext <<EOF
  1417. ! #line 1067 "configure"
  1418.   #include "confdefs.h"
  1419.   #include <$x_direct_test_include>
  1420.   EOF
  1421. --- 1067,1073 ----
  1422.   test -z "$x_direct_test_function" && x_direct_test_function=XtMalloc
  1423.   test -z "$x_direct_test_include" && x_direct_test_include=X11/Intrinsic.h
  1424.   cat > conftest.$ac_ext <<EOF
  1425. ! #line 1071 "configure"
  1426.   #include "confdefs.h"
  1427.   #include <$x_direct_test_include>
  1428.   EOF
  1429. ***************
  1430. *** 1126,1132 ****
  1431.   ac_save_LIBS="$LIBS"
  1432.   LIBS="-l$x_direct_test_library $LIBS"
  1433.   cat > conftest.$ac_ext <<EOF
  1434. ! #line 1130 "configure"
  1435.   #include "confdefs.h"
  1436.   
  1437.   int main() { return 0; }
  1438. --- 1130,1136 ----
  1439.   ac_save_LIBS="$LIBS"
  1440.   LIBS="-l$x_direct_test_library $LIBS"
  1441.   cat > conftest.$ac_ext <<EOF
  1442. ! #line 1134 "configure"
  1443.   #include "confdefs.h"
  1444.   
  1445.   int main() { return 0; }
  1446. ***************
  1447. *** 1212,1218 ****
  1448.   if test "$no_x" = ""; then
  1449.       if test "$x_includes" = ""; then
  1450.       cat > conftest.$ac_ext <<EOF
  1451. ! #line 1216 "configure"
  1452.   #include "confdefs.h"
  1453.   #include <X11/XIntrinsic.h>
  1454.   EOF
  1455. --- 1216,1222 ----
  1456.   if test "$no_x" = ""; then
  1457.       if test "$x_includes" = ""; then
  1458.       cat > conftest.$ac_ext <<EOF
  1459. ! #line 1220 "configure"
  1460.   #include "confdefs.h"
  1461.   #include <X11/XIntrinsic.h>
  1462.   EOF
  1463. ***************
  1464. *** 1236,1242 ****
  1465.       echo checking for X11 header files
  1466.       XINCLUDES="# no special path needed"
  1467.       cat > conftest.$ac_ext <<EOF
  1468. ! #line 1240 "configure"
  1469.   #include "confdefs.h"
  1470.   #include <X11/Intrinsic.h>
  1471.   EOF
  1472. --- 1240,1246 ----
  1473.       echo checking for X11 header files
  1474.       XINCLUDES="# no special path needed"
  1475.       cat > conftest.$ac_ext <<EOF
  1476. ! #line 1244 "configure"
  1477.   #include "confdefs.h"
  1478.   #include <X11/Intrinsic.h>
  1479.   EOF
  1480. ***************
  1481. *** 1296,1302 ****
  1482.     ac_save_LIBS="$LIBS"
  1483.   LIBS="-lXwindow  $LIBS"
  1484.   cat > conftest.$ac_ext <<EOF
  1485. ! #line 1300 "configure"
  1486.   #include "confdefs.h"
  1487.   
  1488.   int main() { return 0; }
  1489. --- 1300,1306 ----
  1490.     ac_save_LIBS="$LIBS"
  1491.   LIBS="-lXwindow  $LIBS"
  1492.   cat > conftest.$ac_ext <<EOF
  1493. ! #line 1304 "configure"
  1494.   #include "confdefs.h"
  1495.   
  1496.   int main() { return 0; }
  1497. ***************
  1498. *** 1354,1360 ****
  1499.     ac_save_LIBS="$LIBS"
  1500.   LIBS="-lXbsd  $LIBS"
  1501.   cat > conftest.$ac_ext <<EOF
  1502. ! #line 1358 "configure"
  1503.   #include "confdefs.h"
  1504.   
  1505.   int main() { return 0; }
  1506. --- 1358,1364 ----
  1507.     ac_save_LIBS="$LIBS"
  1508.   LIBS="-lXbsd  $LIBS"
  1509.   cat > conftest.$ac_ext <<EOF
  1510. ! #line 1362 "configure"
  1511.   #include "confdefs.h"
  1512.   
  1513.   int main() { return 0; }
  1514. ***************
  1515. *** 1387,1393 ****
  1516.     echo $ac_n "(cached) $ac_c" 1>&6
  1517.   else
  1518.     cat > conftest.$ac_ext <<EOF
  1519. ! #line 1391 "configure"
  1520.   #include "confdefs.h"
  1521.   /* System header to define __stub macros and hopefully few prototypes,
  1522.       which can conflict with char connect(); below.  */
  1523. --- 1391,1397 ----
  1524.     echo $ac_n "(cached) $ac_c" 1>&6
  1525.   else
  1526.     cat > conftest.$ac_ext <<EOF
  1527. ! #line 1395 "configure"
  1528.   #include "confdefs.h"
  1529.   /* System header to define __stub macros and hopefully few prototypes,
  1530.       which can conflict with char connect(); below.  */
  1531. ***************
  1532. *** 1435,1441 ****
  1533.     ac_save_LIBS="$LIBS"
  1534.   LIBS="-lsocket  $LIBS"
  1535.   cat > conftest.$ac_ext <<EOF
  1536. ! #line 1439 "configure"
  1537.   #include "confdefs.h"
  1538.   
  1539.   int main() { return 0; }
  1540. --- 1439,1445 ----
  1541.     ac_save_LIBS="$LIBS"
  1542.   LIBS="-lsocket  $LIBS"
  1543.   cat > conftest.$ac_ext <<EOF
  1544. ! #line 1443 "configure"
  1545.   #include "confdefs.h"
  1546.   
  1547.   int main() { return 0; }
  1548. ***************
  1549. *** 1471,1477 ****
  1550.     echo $ac_n "(cached) $ac_c" 1>&6
  1551.   else
  1552.     cat > conftest.$ac_ext <<EOF
  1553. ! #line 1475 "configure"
  1554.   #include "confdefs.h"
  1555.   /* System header to define __stub macros and hopefully few prototypes,
  1556.       which can conflict with char accept(); below.  */
  1557. --- 1475,1481 ----
  1558.     echo $ac_n "(cached) $ac_c" 1>&6
  1559.   else
  1560.     cat > conftest.$ac_ext <<EOF
  1561. ! #line 1479 "configure"
  1562.   #include "confdefs.h"
  1563.   /* System header to define __stub macros and hopefully few prototypes,
  1564.       which can conflict with char accept(); below.  */
  1565. ***************
  1566. *** 1517,1523 ****
  1567.     echo $ac_n "(cached) $ac_c" 1>&6
  1568.   else
  1569.     cat > conftest.$ac_ext <<EOF
  1570. ! #line 1521 "configure"
  1571.   #include "confdefs.h"
  1572.   /* System header to define __stub macros and hopefully few prototypes,
  1573.       which can conflict with char gethostbyname(); below.  */
  1574. --- 1521,1527 ----
  1575.     echo $ac_n "(cached) $ac_c" 1>&6
  1576.   else
  1577.     cat > conftest.$ac_ext <<EOF
  1578. ! #line 1525 "configure"
  1579.   #include "confdefs.h"
  1580.   /* System header to define __stub macros and hopefully few prototypes,
  1581.       which can conflict with char gethostbyname(); below.  */
  1582. ***************
  1583. *** 1561,1567 ****
  1584.     ac_save_LIBS="$LIBS"
  1585.   LIBS="-lnsl  $LIBS"
  1586.   cat > conftest.$ac_ext <<EOF
  1587. ! #line 1565 "configure"
  1588.   #include "confdefs.h"
  1589.   
  1590.   int main() { return 0; }
  1591. --- 1565,1571 ----
  1592.     ac_save_LIBS="$LIBS"
  1593.   LIBS="-lnsl  $LIBS"
  1594.   cat > conftest.$ac_ext <<EOF
  1595. ! #line 1569 "configure"
  1596.   #include "confdefs.h"
  1597.   
  1598.   int main() { return 0; }
  1599. ***************
  1600. *** 1608,1614 ****
  1601.       tk_oldLibs=$LIBS
  1602.       LIBS="$LIBS -lX11-mit"
  1603.       cat > conftest.$ac_ext <<EOF
  1604. ! #line 1612 "configure"
  1605.   #include "confdefs.h"
  1606.   
  1607.       #include <X11/Xlib.h>
  1608. --- 1612,1618 ----
  1609.       tk_oldLibs=$LIBS
  1610.       LIBS="$LIBS -lX11-mit"
  1611.       cat > conftest.$ac_ext <<EOF
  1612. ! #line 1616 "configure"
  1613.   #include "confdefs.h"
  1614.   
  1615.       #include <X11/Xlib.h>
  1616. ***************
  1617. *** 1650,1656 ****
  1618.   
  1619.   echo $ac_n "checking count field in FILE structures""... $ac_c" 1>&6
  1620.   cat > conftest.$ac_ext <<EOF
  1621. ! #line 1654 "configure"
  1622.   #include "confdefs.h"
  1623.   #include <stdio.h>
  1624.   int main() { return 0; }
  1625. --- 1654,1660 ----
  1626.   
  1627.   echo $ac_n "checking count field in FILE structures""... $ac_c" 1>&6
  1628.   cat > conftest.$ac_ext <<EOF
  1629. ! #line 1658 "configure"
  1630.   #include "confdefs.h"
  1631.   #include <stdio.h>
  1632.   int main() { return 0; }
  1633. ***************
  1634. *** 1666,1672 ****
  1635.   
  1636.   if test "$fcnt" = ""; then
  1637.       cat > conftest.$ac_ext <<EOF
  1638. ! #line 1670 "configure"
  1639.   #include "confdefs.h"
  1640.   #include <stdio.h>
  1641.   int main() { return 0; }
  1642. --- 1670,1676 ----
  1643.   
  1644.   if test "$fcnt" = ""; then
  1645.       cat > conftest.$ac_ext <<EOF
  1646. ! #line 1674 "configure"
  1647.   #include "confdefs.h"
  1648.   #include <stdio.h>
  1649.   int main() { return 0; }
  1650. ***************
  1651. *** 1683,1689 ****
  1652.   fi
  1653.   if test "$fcnt" = ""; then
  1654.       cat > conftest.$ac_ext <<EOF
  1655. ! #line 1687 "configure"
  1656.   #include "confdefs.h"
  1657.   #include <stdio.h>
  1658.   int main() { return 0; }
  1659. --- 1687,1693 ----
  1660.   fi
  1661.   if test "$fcnt" = ""; then
  1662.       cat > conftest.$ac_ext <<EOF
  1663. ! #line 1691 "configure"
  1664.   #include "confdefs.h"
  1665.   #include <stdio.h>
  1666.   int main() { return 0; }
  1667. ***************
  1668. *** 1700,1706 ****
  1669.   fi
  1670.   if test "$fcnt" = ""; then
  1671.       cat > conftest.$ac_ext <<EOF
  1672. ! #line 1704 "configure"
  1673.   #include "confdefs.h"
  1674.   #include <stdio.h>
  1675.   int main() { return 0; }
  1676. --- 1704,1710 ----
  1677.   fi
  1678.   if test "$fcnt" = ""; then
  1679.       cat > conftest.$ac_ext <<EOF
  1680. ! #line 1708 "configure"
  1681.   #include "confdefs.h"
  1682.   #include <stdio.h>
  1683.   int main() { return 0; }
  1684. ***************
  1685. *** 1723,1729 ****
  1686.   fi
  1687.   if test "$fcnt" = ""; then
  1688.       cat > conftest.$ac_ext <<EOF
  1689. ! #line 1727 "configure"
  1690.   #include "confdefs.h"
  1691.   #include <stdio.h>
  1692.   int main() { return 0; }
  1693. --- 1727,1733 ----
  1694.   fi
  1695.   if test "$fcnt" = ""; then
  1696.       cat > conftest.$ac_ext <<EOF
  1697. ! #line 1731 "configure"
  1698.   #include "confdefs.h"
  1699.   #include <stdio.h>
  1700.   int main() { return 0; }
  1701. ***************
  1702. *** 1750,1756 ****
  1703.   fi
  1704.   if test "$fcnt" = ""; then
  1705.       cat > conftest.$ac_ext <<EOF
  1706. ! #line 1754 "configure"
  1707.   #include "confdefs.h"
  1708.   #include <stdio.h>
  1709.   int main() { return 0; }
  1710. --- 1754,1760 ----
  1711.   fi
  1712.   if test "$fcnt" = ""; then
  1713.       cat > conftest.$ac_ext <<EOF
  1714. ! #line 1758 "configure"
  1715.   #include "confdefs.h"
  1716.   #include <stdio.h>
  1717.   int main() { return 0; }
  1718. ***************
  1719. *** 1794,1800 ****
  1720.     echo $ac_n "(cached) $ac_c" 1>&6
  1721.   else
  1722.     cat > conftest.$ac_ext <<EOF
  1723. ! #line 1798 "configure"
  1724.   #include "confdefs.h"
  1725.   /* System header to define __stub macros and hopefully few prototypes,
  1726.       which can conflict with char sin(); below.  */
  1727. --- 1798,1804 ----
  1728.     echo $ac_n "(cached) $ac_c" 1>&6
  1729.   else
  1730.     cat > conftest.$ac_ext <<EOF
  1731. ! #line 1802 "configure"
  1732.   #include "confdefs.h"
  1733.   /* System header to define __stub macros and hopefully few prototypes,
  1734.       which can conflict with char sin(); below.  */
  1735. ***************
  1736. *** 1841,1847 ****
  1737.     ac_save_LIBS="$LIBS"
  1738.   LIBS="-lieee  $LIBS"
  1739.   cat > conftest.$ac_ext <<EOF
  1740. ! #line 1845 "configure"
  1741.   #include "confdefs.h"
  1742.   
  1743.   int main() { return 0; }
  1744. --- 1845,1851 ----
  1745.     ac_save_LIBS="$LIBS"
  1746.   LIBS="-lieee  $LIBS"
  1747.   cat > conftest.$ac_ext <<EOF
  1748. ! #line 1849 "configure"
  1749.   #include "confdefs.h"
  1750.   
  1751.   int main() { return 0; }
  1752. ***************
  1753. *** 1879,1885 ****
  1754.     echo $ac_n "(cached) $ac_c" 1>&6
  1755.   else
  1756.     cat > conftest.$ac_ext <<EOF
  1757. ! #line 1883 "configure"
  1758.   #include "confdefs.h"
  1759.   /* System header to define __stub macros and hopefully few prototypes,
  1760.       which can conflict with char memmove(); below.  */
  1761. --- 1883,1889 ----
  1762.     echo $ac_n "(cached) $ac_c" 1>&6
  1763.   else
  1764.     cat > conftest.$ac_ext <<EOF
  1765. ! #line 1887 "configure"
  1766.   #include "confdefs.h"
  1767.   /* System header to define __stub macros and hopefully few prototypes,
  1768.       which can conflict with char memmove(); below.  */
  1769. ***************
  1770. *** 1933,1939 ****
  1771.       { echo "configure: error: can not run test program while cross compiling" 1>&2; exit 1; }
  1772.   else
  1773.   cat > conftest.$ac_ext <<EOF
  1774. ! #line 1937 "configure"
  1775.   #include "confdefs.h"
  1776.   
  1777.   int main()
  1778. --- 1937,1943 ----
  1779.       { echo "configure: error: can not run test program while cross compiling" 1>&2; exit 1; }
  1780.   else
  1781.   cat > conftest.$ac_ext <<EOF
  1782. ! #line 1941 "configure"
  1783.   #include "confdefs.h"
  1784.   
  1785.   int main()
  1786. ***************
  1787. *** 1979,1985 ****
  1788.     echo $ac_n "(cached) $ac_c" 1>&6
  1789.   else
  1790.     cat > conftest.$ac_ext <<EOF
  1791. ! #line 1983 "configure"
  1792.   #include "confdefs.h"
  1793.   /* System header to define __stub macros and hopefully few prototypes,
  1794.       which can conflict with char BSDgettimeofday(); below.  */
  1795. --- 1983,1989 ----
  1796.     echo $ac_n "(cached) $ac_c" 1>&6
  1797.   else
  1798.     cat > conftest.$ac_ext <<EOF
  1799. ! #line 1987 "configure"
  1800.   #include "confdefs.h"
  1801.   /* System header to define __stub macros and hopefully few prototypes,
  1802.       which can conflict with char BSDgettimeofday(); below.  */
  1803. ***************
  1804. *** 2023,2029 ****
  1805.   
  1806.   echo $ac_n "checking for gettimeofday declaration""... $ac_c" 1>&6
  1807.   cat > conftest.$ac_ext <<EOF
  1808. ! #line 2027 "configure"
  1809.   #include "confdefs.h"
  1810.   #include <sys/time.h>
  1811.   EOF
  1812. --- 2027,2033 ----
  1813.   
  1814.   echo $ac_n "checking for gettimeofday declaration""... $ac_c" 1>&6
  1815.   cat > conftest.$ac_ext <<EOF
  1816. ! #line 2031 "configure"
  1817.   #include "confdefs.h"
  1818.   #include <sys/time.h>
  1819.   EOF
  1820. ***************
  1821. *** 2056,2062 ****
  1822.     echo $ac_n "(cached) $ac_c" 1>&6
  1823.   else
  1824.     cat > conftest.$ac_ext <<EOF
  1825. ! #line 2060 "configure"
  1826.   #include "confdefs.h"
  1827.   /* System header to define __stub macros and hopefully few prototypes,
  1828.       which can conflict with char strtod(); below.  */
  1829. --- 2060,2066 ----
  1830.     echo $ac_n "(cached) $ac_c" 1>&6
  1831.   else
  1832.     cat > conftest.$ac_ext <<EOF
  1833. ! #line 2064 "configure"
  1834.   #include "confdefs.h"
  1835.   /* System header to define __stub macros and hopefully few prototypes,
  1836.       which can conflict with char strtod(); below.  */
  1837. ***************
  1838. *** 2102,2108 ****
  1839.       { echo "configure: error: can not run test program while cross compiling" 1>&2; exit 1; }
  1840.   else
  1841.   cat > conftest.$ac_ext <<EOF
  1842. ! #line 2106 "configure"
  1843.   #include "confdefs.h"
  1844.   
  1845.       extern double strtod();
  1846. --- 2106,2112 ----
  1847.       { echo "configure: error: can not run test program while cross compiling" 1>&2; exit 1; }
  1848.   else
  1849.   cat > conftest.$ac_ext <<EOF
  1850. ! #line 2110 "configure"
  1851.   #include "confdefs.h"
  1852.   
  1853.       extern double strtod();
  1854. ***************
  1855. *** 2221,2227 ****
  1856.       echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion"
  1857.       exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;;
  1858.     -version | --version | --versio | --versi | --vers | --ver | --ve | --v)
  1859. !     echo "$CONFIG_STATUS generated by autoconf version 2.2"
  1860.       exit 0 ;;
  1861.     -help | --help | --hel | --he | --h)
  1862.       echo "\$ac_cs_usage"; exit 0 ;;
  1863. --- 2225,2231 ----
  1864.       echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion"
  1865.       exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;;
  1866.     -version | --version | --versio | --versi | --vers | --ver | --ve | --v)
  1867. !     echo "$CONFIG_STATUS generated by autoconf version 2.4"
  1868.       exit 0 ;;
  1869.     -help | --help | --hel | --he | --h)
  1870.       echo "\$ac_cs_usage"; exit 0 ;;
  1871. ***************
  1872. *** 2232,2238 ****
  1873.   ac_given_srcdir=$srcdir
  1874.   ac_given_INSTALL="$INSTALL"
  1875.   
  1876. ! trap 'rm -f Makefile; exit 1' 1 2 15
  1877.   
  1878.   # Protect against being on the right side of a sed subst in config.status. 
  1879.   sed 's/%@/@@/; s/@%/@@/; s/%g$/@g/; /@g$/s/[\\\\&%]/\\\\&/g; 
  1880. --- 2236,2242 ----
  1881.   ac_given_srcdir=$srcdir
  1882.   ac_given_INSTALL="$INSTALL"
  1883.   
  1884. ! trap 'rm -fr `echo "Makefile" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15
  1885.   
  1886.   # Protect against being on the right side of a sed subst in config.status. 
  1887.   sed 's/%@/@@/; s/@%/@@/; s/%g$/@g/; /@g$/s/[\\\\&%]/\\\\&/g; 
  1888. *** ../tk4.0/./library/dialog.tcl    Wed Jun 28 17:15:55 1995
  1889. --- ./library/dialog.tcl    Fri Jul 28 09:35:56 1995
  1890. ***************
  1891. *** 3,9 ****
  1892.   # This file defines the procedure tk_dialog, which creates a dialog
  1893.   # box containing a bitmap, a message, and one or more buttons.
  1894.   #
  1895. ! # @(#) dialog.tcl 1.15 95/06/28 17:15:54
  1896.   #
  1897.   # Copyright (c) 1992-1993 The Regents of the University of California.
  1898.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  1899. --- 3,9 ----
  1900.   # This file defines the procedure tk_dialog, which creates a dialog
  1901.   # box containing a bitmap, a message, and one or more buttons.
  1902.   #
  1903. ! # @(#) dialog.tcl 1.16 95/07/28 09:35:57
  1904.   #
  1905.   # Copyright (c) 1992-1993 The Regents of the University of California.
  1906.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  1907. ***************
  1908. *** 89,94 ****
  1909. --- 89,98 ----
  1910.       # 5. Set a grab and claim the focus too.
  1911.   
  1912.       set oldFocus [focus]
  1913. +     set oldGrab [grab current $w]
  1914. +     if {$oldGrab != ""} {
  1915. +     set grabStatus [grab status $oldGrab]
  1916. +     }
  1917.       grab $w
  1918.       tkwait visibility $w
  1919.       if {$default >= 0} {
  1920. ***************
  1921. *** 100,109 ****
  1922.       # 6. Wait for the user to respond, then restore the focus and
  1923.       # return the index of the selected button.  Restore the focus
  1924.       # before deleting the window, since otherwise the window manager
  1925. !     # may take the focus away so we can't redirect it.
  1926.   
  1927.       tkwait variable tkPriv(button)
  1928.       catch {focus $oldFocus}
  1929.       destroy $w
  1930.       return $tkPriv(button)
  1931.   }
  1932. --- 104,121 ----
  1933.       # 6. Wait for the user to respond, then restore the focus and
  1934.       # return the index of the selected button.  Restore the focus
  1935.       # before deleting the window, since otherwise the window manager
  1936. !     # may take the focus away so we can't redirect it.  Finally,
  1937. !     # restore any grab that was in effect.
  1938.   
  1939.       tkwait variable tkPriv(button)
  1940.       catch {focus $oldFocus}
  1941.       destroy $w
  1942. +     if {$oldGrab != ""} {
  1943. +     if {$grabStatus == "global"} {
  1944. +         grab -global $oldGrab
  1945. +     } else {
  1946. +         grab $oldGrab
  1947. +     }
  1948. +     }
  1949.       return $tkPriv(button)
  1950.   }
  1951. *** ../tk4.0/./library/listbox.tcl    Thu Jun  8 13:18:30 1995
  1952. --- ./library/listbox.tcl    Tue Jul 25 13:24:34 1995
  1953. ***************
  1954. *** 3,9 ****
  1955.   # This file defines the default bindings for Tk listbox widgets
  1956.   # and provides procedures that help in implementing those bindings.
  1957.   #
  1958. ! # @(#) listbox.tcl 1.11 95/06/04 17:30:09
  1959.   #
  1960.   # Copyright (c) 1994 The Regents of the University of California.
  1961.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  1962. --- 3,9 ----
  1963.   # This file defines the default bindings for Tk listbox widgets
  1964.   # and provides procedures that help in implementing those bindings.
  1965.   #
  1966. ! # @(#) listbox.tcl 1.12 95/07/25 13:24:32
  1967.   #
  1968.   # Copyright (c) 1994 The Regents of the University of California.
  1969.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  1970. ***************
  1971. *** 79,87 ****
  1972. --- 79,89 ----
  1973.   }
  1974.   bind Listbox <Prior> {
  1975.       %W yview scroll -1 pages
  1976. +     %W activate @0,0
  1977.   }
  1978.   bind Listbox <Next> {
  1979.       %W yview scroll 1 pages
  1980. +     %W activate @0,0
  1981.   }
  1982.   bind Listbox <Control-Prior> {
  1983.       %W xview scroll -1 pages
  1984. *** ../tk4.0/./library/menu.tcl    Sun Jun 25 16:11:23 1995
  1985. --- ./library/menu.tcl    Fri Jul 28 09:35:56 1995
  1986. ***************
  1987. *** 4,10 ****
  1988.   # It also implements keyboard traversal of menus and implements a few
  1989.   # other utility procedures related to menus.
  1990.   #
  1991. ! # @(#) menu.tcl 1.51 95/06/25 16:11:23
  1992.   #
  1993.   # Copyright (c) 1992-1994 The Regents of the University of California.
  1994.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  1995. --- 4,10 ----
  1996.   # It also implements keyboard traversal of menus and implements a few
  1997.   # other utility procedures related to menus.
  1998.   #
  1999. ! # @(#) menu.tcl 1.52 95/07/28 09:35:55
  2000.   #
  2001.   # Copyright (c) 1992-1994 The Regents of the University of California.
  2002.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  2003. ***************
  2004. *** 19,27 ****
  2005. --- 19,36 ----
  2006.   # cursor -        Saves the -cursor option for the posted menubutton.
  2007.   # focus -        Saves the focus during a menu selection operation.
  2008.   #            Focus gets restored here when the menu is unposted.
  2009. + # grabGlobal -        Used in conjunction with tkPriv(oldGrab):  if
  2010. + #            tkPriv(oldGrab) is non-empty, then tkPriv(grabGlobal)
  2011. + #            contains either an empty string or "-global" to
  2012. + #            indicate whether the old grab was a local one or
  2013. + #            a global one.
  2014.   # inMenubutton -    The name of the menubutton widget containing
  2015.   #            the mouse, or an empty string if the mouse is
  2016.   #            not over any menubutton.
  2017. + # oldGrab -        Window that had the grab before a menu was posted.
  2018. + #            Used to restore the grab state after the menu
  2019. + #            is unposted.  Empty string means there was no
  2020. + #            grab previously set.
  2021.   # popup -        If a menu has been popped up via tk_popup, this
  2022.   #            gives the name of the menu.  Otherwise this
  2023.   #            value is empty.
  2024. ***************
  2025. *** 236,241 ****
  2026. --- 245,251 ----
  2027.       $menu post [winfo rootx $w] [expr [winfo rooty $w]+[winfo height $w]]
  2028.       }
  2029.       focus $menu
  2030. +     tkSaveGrabInfo $w
  2031.       grab -global $w
  2032.   }
  2033.   
  2034. ***************
  2035. *** 302,308 ****
  2036.       }
  2037.       }
  2038.   
  2039. !     # Release grab, if any.
  2040.   
  2041.       if {$menu != ""} {
  2042.       set grab [grab current $menu]
  2043. --- 312,319 ----
  2044.       }
  2045.       }
  2046.   
  2047. !     # Release grab, if any, and restore the previous grab, if there
  2048. !     # was one.
  2049.   
  2050.       if {$menu != ""} {
  2051.       set grab [grab current $menu]
  2052. ***************
  2053. *** 310,315 ****
  2054. --- 321,334 ----
  2055.           grab release $grab
  2056.       }
  2057.       }
  2058. +     if {$tkPriv(oldGrab) != ""} {
  2059. +     if {$tkPriv(grabStatus) == "global"} {
  2060. +         grab set -global $tkPriv(oldGrab)
  2061. +     } else {
  2062. +         grab set $tkPriv(oldGrab)
  2063. +     }
  2064. +     set tkPriv(oldGrab) ""
  2065. +     }
  2066.   }
  2067.   
  2068.   # tkMbMotion --
  2069. ***************
  2070. *** 390,397 ****
  2071.   # Handles button presses in menus.  There are a couple of tricky things
  2072.   # here:
  2073.   # 1. Change the posted cascade entry (if any) to match the mouse position.
  2074. ! # 2. If there is a posted menubutton, must grab to the menubutton so
  2075. ! #    that it can track mouse motions over other menubuttons and change
  2076.   #    the posted menu.
  2077.   # 3. If there's no posted menubutton (e.g. because we're a torn-off menu
  2078.   #    or one of its descendants) must grab to the top-level menu so that
  2079. --- 409,417 ----
  2080.   # Handles button presses in menus.  There are a couple of tricky things
  2081.   # here:
  2082.   # 1. Change the posted cascade entry (if any) to match the mouse position.
  2083. ! # 2. If there is a posted menubutton, must grab to the menubutton;  this
  2084. ! #    overrrides the implicit grab on button press, so that the menu
  2085. ! #    button can track mouse motions over other menubuttons and change
  2086.   #    the posted menu.
  2087.   # 3. If there's no posted menubutton (e.g. because we're a torn-off menu
  2088.   #    or one of its descendants) must grab to the top-level menu so that
  2089. ***************
  2090. *** 411,416 ****
  2091. --- 431,437 ----
  2092.           && [winfo ismapped [winfo parent $menu]]} {
  2093.           set menu [winfo parent $menu]
  2094.       }
  2095. +     tkSaveGrabInfo $menu
  2096.       grab -global $menu
  2097.       }
  2098.   }
  2099. ***************
  2100. *** 811,816 ****
  2101. --- 832,853 ----
  2102.       }
  2103.   }
  2104.   
  2105. + # tkSaveGrabInfo --
  2106. + # Sets the variables tkPriv(oldGrab) and tkPriv(grabStatus) to record
  2107. + # the state of any existing grab on the w's display.
  2108. + #
  2109. + # Arguments:
  2110. + # w -            Name of a window;  used to select the display
  2111. + #            whose grab information is to be recorded.
  2112. + 
  2113. + proc tkSaveGrabInfo w {
  2114. +     global tkPriv
  2115. +     set tkPriv(oldGrab) [grab current $w]
  2116. +     if {$tkPriv(oldGrab) != ""} {
  2117. +     set tkPriv(grabStatus) [grab status $tkPriv(oldGrab)]
  2118. +     }
  2119. + }
  2120. + 
  2121.   # tk_popup --
  2122.   # This procedure pops up a menu and sets things up for traversing
  2123.   # the menu and its submenus.
  2124. ***************
  2125. *** 829,834 ****
  2126. --- 866,872 ----
  2127.       tkMenuUnpost {}
  2128.       }
  2129.       tkPostOverPoint $menu $x $y $entry
  2130. +     tkSaveGrabInfo $menu
  2131.       grab -global $menu
  2132.       set tkPriv(popup) $menu
  2133.       set tkPriv(focus) [focus]
  2134. *** ../tk4.0/./library/tkerror.tcl    Thu Jun  8 13:18:32 1995
  2135. --- ./library/tkerror.tcl    Fri Jul 28 09:36:04 1995
  2136. ***************
  2137. *** 4,13 ****
  2138.   # posts a dialog box with the error message and gives the user a chance
  2139.   # to see a more detailed stack trace.
  2140.   #
  2141. ! # @(#) tkerror.tcl 1.5 95/02/25 13:54:23
  2142.   #
  2143.   # Copyright (c) 1992-1994 The Regents of the University of California.
  2144. ! # Copyright (c) 1994 Sun Microsystems, Inc.
  2145.   #
  2146.   # See the file "license.terms" for information on usage and redistribution
  2147.   # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  2148. --- 4,13 ----
  2149.   # posts a dialog box with the error message and gives the user a chance
  2150.   # to see a more detailed stack trace.
  2151.   #
  2152. ! # @(#) tkerror.tcl 1.6 95/07/28 09:36:05
  2153.   #
  2154.   # Copyright (c) 1992-1994 The Regents of the University of California.
  2155. ! # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  2156.   #
  2157.   # See the file "license.terms" for information on usage and redistribution
  2158.   # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  2159. ***************
  2160. *** 21,34 ****
  2161.   
  2162.   proc tkerror err {
  2163.       global errorInfo
  2164. - 
  2165. -     # Be sure to release any grabs that might be present on the
  2166. -     # screen, since they could make it impossible for the user
  2167. -     # to dismiss the error dialog box.
  2168. - 
  2169. -     if {[grab current .] != ""} {
  2170. -     grab release [grab current .]
  2171. -     }
  2172.       set info $errorInfo
  2173.       set button [tk_dialog .tkerrorDialog "Error in Tcl Script" \
  2174.           "Error: $err" error 0 OK "Skip Messages" "Stack Trace"]
  2175. --- 21,26 ----
  2176. ***************
  2177. *** 64,67 ****
  2178. --- 56,67 ----
  2179.           - [winfo vrooty [winfo parent $w]]]
  2180.       wm geom $w +$x+$y
  2181.       wm deiconify $w
  2182. + 
  2183. +     # Be sure to release any grabs that might be present on the
  2184. +     # screen, since they could make it impossible for the user
  2185. +     # to interact with the stack trace.
  2186. + 
  2187. +     if {[grab current .] != ""} {
  2188. +     grab release [grab current .]
  2189. +     }
  2190.   }
  2191. *** ../tk4.0/./library/demos/browse    Fri May 26 16:20:57 1995
  2192. --- ./library/demos/browse    Tue Jul 18 16:21:45 1995
  2193. ***************
  2194. *** 1,6 ****
  2195.   #!/bin/sh
  2196.   # the next line restarts using wish \
  2197. ! exec wish "$0" "$@"
  2198.   
  2199.   # browse --
  2200.   # This script generates a directory browser, which lists the working
  2201. --- 1,6 ----
  2202.   #!/bin/sh
  2203.   # the next line restarts using wish \
  2204. ! exec wish4.0 "$0" "$@"
  2205.   
  2206.   # browse --
  2207.   # This script generates a directory browser, which lists the working
  2208. ***************
  2209. *** 7,13 ****
  2210.   # directory and allows you to open files or subdirectories by
  2211.   # double-clicking.
  2212.   #
  2213. ! # @(#) browse 1.5 95/05/26 16:20:51
  2214.   
  2215.   # Create a scrollbar on the right side of the main window and a listbox
  2216.   # on the left side.
  2217. --- 7,13 ----
  2218.   # directory and allows you to open files or subdirectories by
  2219.   # double-clicking.
  2220.   #
  2221. ! # @(#) browse 1.6 95/07/18 16:21:36
  2222.   
  2223.   # Create a scrollbar on the right side of the main window and a listbox
  2224.   # on the left side.
  2225. *** ../tk4.0/./library/demos/hello    Fri May 26 16:20:57 1995
  2226. --- ./library/demos/hello    Tue Jul 18 16:21:46 1995
  2227. ***************
  2228. *** 1,12 ****
  2229.   #!/bin/sh
  2230.   # the next line restarts using wish \
  2231. ! exec wish "$0" "$@"
  2232.   
  2233.   # hello --
  2234.   # Simple Tk script to create a button that prints "Hello, world".
  2235.   # Click on the button to terminate the program.
  2236.   #
  2237. ! # @(#) hello 1.3 95/05/26 16:20:52
  2238.   # 
  2239.   # The first line below creates the button, and the second line
  2240.   # asks the packer to shrink-wrap the application's main window
  2241. --- 1,12 ----
  2242.   #!/bin/sh
  2243.   # the next line restarts using wish \
  2244. ! exec wish4.0 "$0" "$@"
  2245.   
  2246.   # hello --
  2247.   # Simple Tk script to create a button that prints "Hello, world".
  2248.   # Click on the button to terminate the program.
  2249.   #
  2250. ! # @(#) hello 1.4 95/07/18 16:21:37
  2251.   # 
  2252.   # The first line below creates the button, and the second line
  2253.   # asks the packer to shrink-wrap the application's main window
  2254. *** ../tk4.0/./library/demos/ixset    Fri May 26 16:20:58 1995
  2255. --- ./library/demos/ixset    Tue Jul 18 16:21:46 1995
  2256. ***************
  2257. *** 1,6 ****
  2258.   #!/bin/sh
  2259.   # the next line restarts using wish \
  2260. ! exec wish "$0" "$@"
  2261.   
  2262.   # ixset --
  2263.   # A nice interface to "xset" to change X server settings
  2264. --- 1,6 ----
  2265.   #!/bin/sh
  2266.   # the next line restarts using wish \
  2267. ! exec wish4.0 "$0" "$@"
  2268.   
  2269.   # ixset --
  2270.   # A nice interface to "xset" to change X server settings
  2271. ***************
  2272. *** 9,15 ****
  2273.   #   91/11/23 : pda@masi.ibp.fr, jt@ratp.fr : design
  2274.   #   92/08/01 : pda@masi.ibp.fr : cleaning
  2275.   #
  2276. ! # @(#) ixset 1.4 95/05/26 16:20:53
  2277.   
  2278.   #
  2279.   # Button actions
  2280. --- 9,15 ----
  2281.   #   91/11/23 : pda@masi.ibp.fr, jt@ratp.fr : design
  2282.   #   92/08/01 : pda@masi.ibp.fr : cleaning
  2283.   #
  2284. ! # @(#) ixset 1.5 95/07/18 16:21:37
  2285.   
  2286.   #
  2287.   # Button actions
  2288. *** ../tk4.0/./library/demos/rmt    Mon Jun  5 14:41:42 1995
  2289. --- ./library/demos/rmt    Tue Jul 18 16:21:46 1995
  2290. ***************
  2291. *** 1,6 ****
  2292.   #!/bin/sh
  2293.   # the next line restarts using wish \
  2294. ! exec wish "$0" "$@"
  2295.   
  2296.   # rmt --
  2297.   # This script implements a simple remote-control mechanism for
  2298. --- 1,6 ----
  2299.   #!/bin/sh
  2300.   # the next line restarts using wish \
  2301. ! exec wish4.0 "$0" "$@"
  2302.   
  2303.   # rmt --
  2304.   # This script implements a simple remote-control mechanism for
  2305. ***************
  2306. *** 7,13 ****
  2307.   # Tk applications.  It allows you to select an application and
  2308.   # then type commands to that application.
  2309.   #
  2310. ! # @(#) rmt 1.6 95/06/05 14:41:40
  2311.   
  2312.   wm title . "Tk Remote Controller"
  2313.   wm iconname . "Tk Remote"
  2314. --- 7,13 ----
  2315.   # Tk applications.  It allows you to select an application and
  2316.   # then type commands to that application.
  2317.   #
  2318. ! # @(#) rmt 1.7 95/07/18 16:21:38
  2319.   
  2320.   wm title . "Tk Remote Controller"
  2321.   wm iconname . "Tk Remote"
  2322. *** ../tk4.0/./library/demos/rolodex    Fri May 26 16:20:58 1995
  2323. --- ./library/demos/rolodex    Tue Jul 18 16:21:46 1995
  2324. ***************
  2325. *** 1,6 ****
  2326.   #!/bin/sh
  2327.   # the next line restarts using wish \
  2328. ! exec wish "$0" "$@"
  2329.   
  2330.   # rolodex --
  2331.   # This script was written as an entry in Tom LaStrange's rolodex
  2332. --- 1,6 ----
  2333.   #!/bin/sh
  2334.   # the next line restarts using wish \
  2335. ! exec wish4.0 "$0" "$@"
  2336.   
  2337.   # rolodex --
  2338.   # This script was written as an entry in Tom LaStrange's rolodex
  2339. ***************
  2340. *** 8,14 ****
  2341.   # feel of a rolodex program, although it's lifeless and doesn't
  2342.   # actually do the rolodex application.
  2343.   #
  2344. ! # @(#) rolodex 1.4 95/05/26 16:20:55
  2345.   
  2346.   foreach i [winfo child .] {
  2347.       catch {destroy $i}
  2348. --- 8,14 ----
  2349.   # feel of a rolodex program, although it's lifeless and doesn't
  2350.   # actually do the rolodex application.
  2351.   #
  2352. ! # @(#) rolodex 1.5 95/07/18 16:21:39
  2353.   
  2354.   foreach i [winfo child .] {
  2355.       catch {destroy $i}
  2356. *** ../tk4.0/./library/demos/square    Fri May 26 16:20:58 1995
  2357. --- ./library/demos/square    Tue Jul 18 16:21:46 1995
  2358. ***************
  2359. *** 1,6 ****
  2360.   #!/bin/sh
  2361.   # the next line restarts using wish \
  2362. ! exec wish "$0" "$@"
  2363.   
  2364.   # square --
  2365.   # This script generates a demo application containing only
  2366. --- 1,6 ----
  2367.   #!/bin/sh
  2368.   # the next line restarts using wish \
  2369. ! exec wish4.0 "$0" "$@"
  2370.   
  2371.   # square --
  2372.   # This script generates a demo application containing only
  2373. ***************
  2374. *** 11,17 ****
  2375.   # Button-1 press/drag:        moves square to mouse
  2376.   # "a":                toggle size animation on/off
  2377.   #
  2378. ! # @(#) square 1.3 95/05/26 16:20:56
  2379.   
  2380.   square .s
  2381.   pack .s -expand yes -fill both
  2382. --- 11,17 ----
  2383.   # Button-1 press/drag:        moves square to mouse
  2384.   # "a":                toggle size animation on/off
  2385.   #
  2386. ! # @(#) square 1.4 95/07/18 16:21:41
  2387.   
  2388.   square .s
  2389.   pack .s -expand yes -fill both
  2390. *** ../tk4.0/./library/demos/tcolor    Mon Jun  5 22:32:04 1995
  2391. --- ./library/demos/tcolor    Tue Jul 18 16:21:46 1995
  2392. ***************
  2393. *** 1,6 ****
  2394.   #!/bin/sh
  2395.   # the next line restarts using wish \
  2396. ! exec wish "$0" "$@"
  2397.   
  2398.   # tcolor --
  2399.   # This script implements a simple color editor, where you can
  2400. --- 1,6 ----
  2401.   #!/bin/sh
  2402.   # the next line restarts using wish \
  2403. ! exec wish4.0 "$0" "$@"
  2404.   
  2405.   # tcolor --
  2406.   # This script implements a simple color editor, where you can
  2407. ***************
  2408. *** 7,13 ****
  2409.   # create colors using either the RGB, HSB, or CYM color spaces
  2410.   # and apply the color to existing applications.
  2411.   #
  2412. ! # @(#) tcolor 1.7 95/06/05 22:32:03
  2413.   
  2414.   wm title . "Color Editor"
  2415.   
  2416. --- 7,13 ----
  2417.   # create colors using either the RGB, HSB, or CYM color spaces
  2418.   # and apply the color to existing applications.
  2419.   #
  2420. ! # @(#) tcolor 1.8 95/07/18 16:21:42
  2421.   
  2422.   wm title . "Color Editor"
  2423.   
  2424. *** ../tk4.0/./library/demos/timer    Fri May 26 16:20:58 1995
  2425. --- ./library/demos/timer    Tue Jul 18 16:21:47 1995
  2426. ***************
  2427. *** 1,11 ****
  2428.   #!/bin/sh
  2429.   # the next line restarts using wish \
  2430. ! exec wish "$0" "$@"
  2431.   
  2432.   # timer --
  2433.   # This script generates a counter with start and stop buttons.
  2434.   #
  2435. ! # @(#) timer 1.3 95/05/26 16:20:58
  2436.   
  2437.   label .counter -text 0.00 -relief raised -width 10
  2438.   button .start -text Start -command {
  2439. --- 1,11 ----
  2440.   #!/bin/sh
  2441.   # the next line restarts using wish \
  2442. ! exec wish4.0 "$0" "$@"
  2443.   
  2444.   # timer --
  2445.   # This script generates a counter with start and stop buttons.
  2446.   #
  2447. ! # @(#) timer 1.4 95/07/18 16:21:44
  2448.   
  2449.   label .counter -text 0.00 -relief raised -width 10
  2450.   button .start -text Start -command {
  2451. *** ../tk4.0/./library/demos/widget    Wed Jun 21 17:32:39 1995
  2452. --- ./library/demos/widget    Tue Jul 18 16:21:45 1995
  2453. ***************
  2454. *** 1,6 ****
  2455.   #!/bin/sh
  2456.   # the next line restarts using wish \
  2457. ! exec wish "$0" "$@"
  2458.   
  2459.   # widget --
  2460.   # This script demonstrates the various widgets provided by Tk,
  2461. --- 1,6 ----
  2462.   #!/bin/sh
  2463.   # the next line restarts using wish \
  2464. ! exec wish4.0 "$0" "$@"
  2465.   
  2466.   # widget --
  2467.   # This script demonstrates the various widgets provided by Tk,
  2468. ***************
  2469. *** 11,17 ****
  2470.   # ".tcl" files is this directory, which are sourced by this script
  2471.   # as needed.
  2472.   #
  2473. ! # @(#) widget 1.9 95/06/21 17:32:37
  2474.   
  2475.   eval destroy [winfo child .]
  2476.   wm title . "Widget Demonstration"
  2477. --- 11,17 ----
  2478.   # ".tcl" files is this directory, which are sourced by this script
  2479.   # as needed.
  2480.   #
  2481. ! # @(#) widget 1.10 95/07/18 16:21:35
  2482.   
  2483.   eval destroy [winfo child .]
  2484.   wm title . "Widget Demonstration"
  2485. *** ../tk4.0/./tests/imgPPM.test    Thu Jun  8 17:04:46 1995
  2486. --- ./tests/imgPPM.test    Wed Jul 26 12:58:53 1995
  2487. ***************
  2488. *** 7,13 ****
  2489.   # See the file "license.terms" for information on usage and redistribution
  2490.   # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  2491.   #
  2492. ! # @(#) imgPPM.test 1.3 95/06/08 17:04:46
  2493.   
  2494.   if {[info procs test] != "test"} {
  2495.       source defs
  2496. --- 7,13 ----
  2497.   # See the file "license.terms" for information on usage and redistribution
  2498.   # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  2499.   #
  2500. ! # @(#) imgPPM.test 1.4 95/07/26 12:58:51
  2501.   
  2502.   if {[info procs test] != "test"} {
  2503.       source defs
  2504. ***************
  2505. *** 44,58 ****
  2506.       list [catch {image create photo p1 -file test.ppm} msg] $msg
  2507.   } {1 {PPM image file "test.ppm" has dimension(s) <= 0}}
  2508.   test ppm-1.5 {FileReadPPM procedure} {
  2509.       put test.ppm "P6\n10 10\n255\nabcdef"
  2510.       list [catch {image create photo p1 -file test.ppm} msg] $msg
  2511.   } {1 {error reading PPM image file "test.ppm": not enough data}}
  2512. ! test ppm-1.6 {FileReadPPM procedure} {
  2513.       put test.ppm "P6\n5 4\n255\n01234567890123456789012345678901234567890123456789012345678"
  2514.       list [catch {image create photo p1 -file test.ppm} msg] $msg
  2515.   } {1 {error reading PPM image file "test.ppm": not enough data}}
  2516. ! test ppm-1.7 {FileReadPPM procedure} {
  2517. !     put test.ppm "P6\n5 4\n255\n012345678901234567890123456789012345678901234567890123456789"
  2518.       list [catch {image create photo p1 -file test.ppm} msg] $msg \
  2519.           [image width p1] [image height p1]
  2520.   } {0 p1 5 4}
  2521. --- 44,66 ----
  2522.       list [catch {image create photo p1 -file test.ppm} msg] $msg
  2523.   } {1 {PPM image file "test.ppm" has dimension(s) <= 0}}
  2524.   test ppm-1.5 {FileReadPPM procedure} {
  2525. +     put test.ppm "P6\n10 20\n256\nabcdef"
  2526. +     list [catch {image create photo p1 -file test.ppm} msg] $msg
  2527. + } {1 {PPM image file "test.ppm" has bad maximum intensity value 256}}
  2528. + test ppm-1.6 {FileReadPPM procedure} {
  2529. +     put test.ppm "P6\n10 20\n0\nabcdef"
  2530. +     list [catch {image create photo p1 -file test.ppm} msg] $msg
  2531. + } {1 {PPM image file "test.ppm" has bad maximum intensity value 0}}
  2532. + test ppm-1.7 {FileReadPPM procedure} {
  2533.       put test.ppm "P6\n10 10\n255\nabcdef"
  2534.       list [catch {image create photo p1 -file test.ppm} msg] $msg
  2535.   } {1 {error reading PPM image file "test.ppm": not enough data}}
  2536. ! test ppm-1.8 {FileReadPPM procedure} {
  2537.       put test.ppm "P6\n5 4\n255\n01234567890123456789012345678901234567890123456789012345678"
  2538.       list [catch {image create photo p1 -file test.ppm} msg] $msg
  2539.   } {1 {error reading PPM image file "test.ppm": not enough data}}
  2540. ! test ppm-1.9 {FileReadPPM procedure} {
  2541. !     put test.ppm "P6\n5 4\n150\n012345678901234567890123456789012345678901234567890123456789"
  2542.       list [catch {image create photo p1 -file test.ppm} msg] $msg \
  2543.           [image width p1] [image height p1]
  2544.   } {0 p1 5 4}
  2545. ***************
  2546. *** 114,120 ****
  2547.   } {1 {couldn't recognize data in image file "test.ppm"}}
  2548.   test ppm-3.9 {ReadPPMFileHeader procedure} {
  2549.       catch {image delete p1}
  2550. !     put test.ppm "P6\n5\n255\n012345678901234567890123456789012345678901234567890123456789"
  2551.       list [catch {image create photo p1 -file test.ppm} msg] $msg
  2552.   } {1 {couldn't recognize data in image file "test.ppm"}}
  2553.   test ppm-3.10 {ReadPPMFileHeader procedure} {
  2554. --- 122,128 ----
  2555.   } {1 {couldn't recognize data in image file "test.ppm"}}
  2556.   test ppm-3.9 {ReadPPMFileHeader procedure} {
  2557.       catch {image delete p1}
  2558. !     put test.ppm "P6\n5\n255\n!012345678901234567890123456789012345678901234567890123456789"
  2559.       list [catch {image create photo p1 -file test.ppm} msg] $msg
  2560.   } {1 {couldn't recognize data in image file "test.ppm"}}
  2561.   test ppm-3.10 {ReadPPMFileHeader procedure} {
  2562. ***************
  2563. *** 122,133 ****
  2564.       put test.ppm "P6\n5 4\nzz255\n012345678901234567890123456789012345678901234567890123456789"
  2565.       list [catch {image create photo p1 -file test.ppm} msg] $msg
  2566.   } {1 {couldn't recognize data in image file "test.ppm"}}
  2567. - test ppm-3.11 {ReadPPMFileHeader procedure} {
  2568. -     catch {image delete p1}
  2569. -     put test.ppm "P6\n5 4\n254\n012345678901234567890123456789012345678901234567890123456789"
  2570. -     list [catch {image create photo p1 -file test.ppm} msg] $msg
  2571. - } {1 {couldn't recognize data in image file "test.ppm"}}
  2572. - 
  2573.   
  2574.   catch {exec rm test.ppm}
  2575.   catch {exec rm test2.ppm}
  2576. --- 130,135 ----
  2577.